IEEE_GET_HALTING

Elemental Module Intrinsic Subroutine (Generic): Stores the halting mode for an exception.

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 default 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

IEEE_GET_HALTING_MODE

Module

Example

See Also