demo% cat DetExcHan.f
EXTERNAL myhandler
REAL :: r = 14.2 , s = 0.0
i = ieee_handler (’set’, ’division’, myhandler )
t = r/s
END
INTEGER FUNCTION myhandler(sig,code,context)
INTEGER sig, code, context(5)
CALL abort()
END
demo% f95 DetExcHan.f
demo% a.out
Abort
demo%
|