C=======================================================================
C   FILE: TEST1.FOR
C   DATE: 21 July 2003
C
C   TEST: Integer subscript out of range for Integer parameter Y(*)
C         corresponding to argument X in Subroutine SUBA.
C
C   Contact: H. D. Knoble
C=======================================================================
        INTEGER X
        DIMENSION X(3)
        CALL SUBA(X,3)
        WRITE(*,*) 'Integer subscript out of range not caught!'
        STOP
        END
        SUBROUTINE SUBA(Y,N)
        INTEGER N,Y(N)
C---Y is a 3-vector; so storing Y(4) is an error.
        DO 1 I=1,N+1
          Y(I)=I
1       CONTINUE
        RETURN
        END