Visible to Intel only — GUID: GUID-BABBEBFC-B223-420C-B420-73DFD89EF6A2
Visible to Intel only — GUID: GUID-BABBEBFC-B223-420C-B420-73DFD89EF6A2
IEEE_SET_FLAG
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 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