C=======================================================================
C   FILE: TEST5.FOR
C   DATE: 2 April 2004
C
C   TEST: Double Precision parameter, Y, corresponding to a shorter
C         Integer argument, X, illegally writes past bounds of X.
C
C   Contact: H. D. Knoble
C=======================================================================
        INTEGER*1 X,N
        DIMENSION X(3)
        N=3
        CALL SUBA(X,N)
        WRITE(*,*) 'Length error was not caught!'
        STOP
        END
        SUBROUTINE SUBA(Y,N)
C---Double Precision stores into Integer*1 array.
        DOUBLE PRECISION Y(3)
        INTEGER N
        DO 1 I=1,N
          Y(I)=I
1       CONTINUE
        RETURN
        END