Visible to Intel only — GUID: GUID-734C3237-8347-4DE4-89F1-668ED4A27994
Visible to Intel only — GUID: GUID-734C3237-8347-4DE4-89F1-668ED4A27994
IEEE_GET_HALTING_MODE
Elemental Module Intrinsic Subroutine (Generic): Stores the halting mode for an exception. This is a pure subroutine.
Module
USE, INTRINSIC :: IEEE_EXCEPTIONS
CALL IEEE_GET_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 |
(Output) Must be of type logical. If the exception in flag causes halting, the result is true; otherwise, false. |
Example
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