C=======================================================================
C   FILE: TEST8.FOR
C   DATE: 21 July 2003
C
C   TEST: Storing string out of range for string CH dimensioned *(*)
C         in Subroutine ANY. String reference given as constants.
C
C   Contact: H. D. Knoble
C=======================================================================
        CHARACTER*20 INPUT
        DATA INPUT/'1A2B3C4D5E6F7G8H9I0J'/
        CALL ANY(INPUT)
        WRITE(*,*)'INPUT=',INPUT
        STOP
        END
        SUBROUTINE ANY(CH)
        CHARACTER*(*) CH
C---Following attempt to store CH(26:30) is an error.
        CH(26:30)=CH(3:7)
        RETURN
        END