C=======================================================================
C   FILE: TEST10.FOR
C   DATE: 2 April 2004
C
C   TEST: Subroutine subprogram SUBA illegally called as a Function
C         subprogram in subroutine ANY. No function exists, so no value
C         can be returned.
C
C   Contact: H. D. Knoble
C=======================================================================
        INTEGER X, Y, SUBA
        EXTERNAL SUBA
        X=-1
        Y=-2
        CALL ANY(SUBA,X,Y)
        WRITE(*,*)'Did NOT catch this error'
        STOP
        END
        SUBROUTINE ANY(FNC,X,Y)
        INTEGER Y,X, FNC
C---FNC is not a Function subprogram so calling it
C   as a function is an error.
        Y=FNC(X)
        RETURN
        END
        SUBROUTINE SUBA(X)
        INTEGER X
        X=12345
        RETURN
        END