プログラムが例外を受け取る原因は数多く考えられます。問題を見つける方法の 1 つとして、ソースプログラムで例外が発生した行番号を検出して調べる方法があります。
-ftrap=common によってコンパイルすると、すべての例外に対してトラップが強制的に行われます。
例外が発生した箇所を検索します。
demo% cat wh.f call joe(r, s) print *, r/s end subroutine joe(r,s) r = 12. s = 0. return end demo% f95 -g -o wh -ftrap=common wh.f demo% dbx wh Reading symbolic information for wh (dbx) catch FPE (dbx) run Running: wh (process id 17970) signal FPE (floating point divide by zero) in MAIN at line 2 in file “wh.f” 2 print *, r/s (dbx) |