!=======================================================================
!   FILE: TEST22.FOR
!   DATE: 21 July 2003
!
!   TEST: whether write on a string in parameter is detected
!
!   Contact: Arnaud Desitter
!=======================================================================

      subroutine ws( s )
      implicit none
      character*(*) s
      s = 'Hello2'
      write(*,*) s
      write(*,*) "Test Failed!"
      return
      end

      program hh
      implicit none
      character*(*) s1
      parameter( s1 = 'Hello1' )
      call ws( s1 )
      end