インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Elemental Module Intrinsic Function (Generic): Controls halting or continuation after an exception. This is a pure subroutine.
USE, INTRINSIC :: IEEE_EXCEPTIONS
CALL IEEE_SET_HALTING_MODE (flag, halting)
flag |
(Input) Must be of type TYPE (IEEE_FLAG_TYPE). It specifies one of the following IEEE flags: IEEE_DIVIDE_BY_ZERO, IEEE_INEXACT, IEEE_INVALID, IEEE_OVERFLOW, or IEEE_UNDERFLOW |
halting |
(Input) Must be scalar and of type default logical. If the value is true, the exception specified in FLAG will cause halting; otherwise, execution will continue after this exception. |
Consider the following:
USE, INTRINSIC :: IEEE_EXCEPTIONS
LOGICAL HALT
...
CALL IEEE_GET_HALTING_MODE(IEEE_INVALID, HALT) ! Stores the halting mode
CALL IEEE_SET_HALTING_MODE(IEEE_INVALID, .FALSE.) ! Stops halting
...
CALL IEEE_SET_HALTING_MODE(IEEE_INVALID, HALT) ! Restores halting