!=======================================================================
!   FILE: TEST21.FOR
!   DATE: 21 July 2003
!
!   TEST:  whether write on a read-only string is detected
!
!   Contact: Arnaud Desitter
!=======================================================================
      subroutine ws( s )
      implicit none
      character*(*) s
      s = 'Hello2'
      write(*,*) s
      return
      end

      program hh
      implicit none
      call ws( 'Hello1' )
      end