インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Elemental Module Intrinsic Function (Generic): Assigns a value to an exception flag. This is a pure subroutine.
USE, INTRINSIC :: IEEE_EXCEPTIONS
CALL IEEE_SET_FLAG (flag,flag_value)
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. |
flag_value |
(Output) Must be of type default logical. If it has the value true, the exception in 'flag' is set to signal; otherwise, the exception is set to be quiet. |
Consider the following:
USE, INTRINSIC :: IEEE_EXCEPTIONS ! Can also use module IEEE_ARITHMETIC
...
CALL IEEE_SET_FLAG (IEEE_INVALID, .TRUE.) ! Sets the IEEE_INVALID flag to signal