!=======================================================================
!   FILE: TEST23.FOR
!   DATE: 21 July 2003
!
!   TEST: test whether write on a read-only integer 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
      call ws( 1 )
      end