C=======================================================================
C   FILE: TEST7.FOR
C   DATE: 21 July 2003
C
C   TEST: String range error, storing out of bounds in string CH in
C         Subroutine ANY. String bounds passed as arguments. Parameter
C         CH dimentioned to constant.
C
C   Contact: H. D. Knoble
C=======================================================================
        CHARACTER*20 INPUT
        DATA INPUT/'1A2B3C4D5E6F7G8H9I0J'/
        CALL ANY(INPUT,26,30,3,7)
        WRITE(*,*)'INPUT=',INPUT
        STOP
        END
        SUBROUTINE ANY(CH,I,J,K,L)
        INTEGER I,J,K,L
        CHARACTER*20 CH
C---Substring CH(26:30) is out of range.
        CH(I:J)=CH(K:L)
        RETURN
        END