############################################################
# Output from 'tfpe' on SGIs illustrating exception
# trapping via 'libfpe.a' and 'TRAP_FPE' environment vbl
############################################################

einstein% make tfpe
        f77 -g -c tfpe.f
as1: Warning: tfpe.f, line 27: number outside range for double 
     precision floating point values
        f77 -g -L/usr/local/lib tfpe.o -lp329f -lfpe -o tfpe

einstein% setenv TRAP_FPE "ALL=ABORT"


einstein% tfpe
IOT Trap
Abort


############################################################
# The debugger (dbx) can help you isolate the problem
############################################################
einstein% dbx tfpe
dbx version 3.18 Feb 14 1994 00:52:47
Type 'help' for help.
Process  5099 (tfpe) started
[2] Process  5099 (tfpe) stopped at [tfpe:29 ,0x4022b4]
  29  divby0    = 1.0d0 / r8arg(1,0.0d0)
(dbx) run
Process  5099 (tfpe) terminated
Process  5100 (tfpe) started
Process  5100 (tfpe)  Floating point exception (Signal 8) 
                      [tfpe:29 +0x2c,0x4022e0]
  29  divby0    = 1.0d0 / r8arg(1,0.0d0)
(dbx)