!*******************************************************************************
!$RCSfile$
!$Revision$
!$Date$
!*******************************************************************************
!*******************************************************************************
!            Enable FORTRAN exception handling
!*******************************************************************************
SUBROUTINE ExceptionTest()

IMPLICIT NONE

REAL testException

testException = 12.0*24.0

RETURN
END
