!=======================================================================
!   FILE: TEST12.F90
!   DATE: 21 July 2003
!     with an option to see/save traceback by hex offset.
!
!   TEST: Floating-point divide by Zero
!
!   Contact: H. D. Knoble
!=======================================================================
      REAL X,Y,Z
      DATA X/1.0/, Y/0.0/
      Z=X/Y
      WRITE(*,*) 'Z=',Z
      STOP
      END