C=======================================================================
C   FILE: TEST2.FOR
C   DATE: 21 July 2003
C
C   TEST: Illegal array reference for character string, CH, of unknown
C         length, CHARACTER *(*) in Subroutine ANY.
C
C   Contact: H. D. Knoble
C=======================================================================
        CHARACTER*2 C(3)
        DATA C/'AX','BY','CZ'/
        CALL ANY(C,3)
        WRITE(*,*) 'Character subscript out of range not caught!'
        STOP
        END
        SUBROUTINE ANY(CH,N)
        INTEGER N
        CHARACTER*(*) CH(N)
C---CH is an array of 3; so storing the 4th element is an error.
        DO I=1,N+1
           CH(I)='XX'
        END DO
        RETURN
        END