Visible to Intel only — GUID: GUID-BD6C4003-7741-4B05-B178-A5979FDF54A6
Visible to Intel only — GUID: GUID-BD6C4003-7741-4B05-B178-A5979FDF54A6
IEEE_GET_FLAG
Elemental Module Intrinsic Subroutine (Generic): Returns whether an exception flag is signaling.
Module
USE, INTRINSIC :: IEEE_EXCEPTIONS
CALL IEEE_GET_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 logical. If the exception in flag is signaling, the result is true; otherwise, false. |
Example
Consider the following:
USE, INTRINSIC :: IEEE_EXCEPTIONS
LOGICAL ON
...
CALL IEEE_GET_FLAG(IEEE_INVALID, ON)
If flag IEEE_INVALID is signaling, the value of ON is true; if it is quiet, the value of ON is false.