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

      subroutine ws( i )
      implicit none
      integer i
      i = 2
      write(*,*) i
      write(*,*) "Test Failed!"
      return
      end

      program hh
      implicit none
      integer i1
      parameter( i1 = 1 )
      call ws( i1 )
      end