!=======================================================================
!   FILE: TEST16.F90
!   DATE: 21 July 2003
!
!   TEST: Test uninitialized (unset) local variable Z after first call.
!         That is, Z does not have SAVE attribute nor appear
!         in a SAVE statement.
!
!   Contact: H. D. Knoble
!=======================================================================
      INTEGER C
      REAL A,B
      A=1.
      B=0.
      C=0
      CALL SUBA(B,C)
      WRITE(*,*) 'A,B,C=',A,B,C
      CALL SUBA(B,C)
      WRITE(*,*) 'A,B,C=',A,B,C
      STOP
      END
      SUBROUTINE SUBA(X,Y)
      INTEGER Y
      REAL X, Z,U
      Y=Y+1
      IF (X.LE.1) THEN
        Z=5.
        X=2.
      ENDIF
!   Z should be flagged as Undefined on second
!   Call to SUBA.
      WRITE(*,*)'SUBA Call#',Y
      U=Z
      WRITE(*,*)'Z=',Z
      RETURN
      END