C=======================================================================
C   FILE: TEST4.FOR
C   DATE: 21 July 2003
C
C   TEST: Uninitialized (unset) variables B and C referenced after a
C         subprogram CALL ANY that did not give them values.
C
C   Contact: H. D. Knoble
C=======================================================================
      DOUBLE PRECISION A,B,C
      A=1.D0
      CALL ANY(B,C)
C---B and C are never defined.
      A=A+B+C
      WRITE(*,*) 'Undefined variables B & C not caught!'
      WRITE(*,*) 'A,B,C=',A,B,C
      STOP
      END
      SUBROUTINE ANY(X,Y)
      DOUBLE PRECISION X,Y, U
      U=1
      RETURN
      END