!=======================================================================
!   FILE: TEST33.F90
!   DATE: 21 July 2003
!
!   TEST: Conditionally storing string out of range for constant string
!         passed to Subroutine ANY.
!
!   Contact: Dan Tex1; posted 14 May 2002, comp.lang.fortran
!=======================================================================
        call any('')
        write(*,*) 'No run-time diagnostic.'
        end
        subroutine any(ch)
        character(*) :: ch
!---Following conditional attempt is illegal.
        if (ch=='any') then
          ch='illegal'
        endif
        return
        end