ieee_support_halting

Date:: 10-12-2011

NAME

IEEE_SUPPORT_HALTING - Determine if the system supports the ability during execution to control whether to continue or to abort execution after an exception

SYNOPSIS

IEEE_SUPPORT_HALTING ([FLAG=]flag)

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

Fortran

IEEE Standard for Binary Floating-point Arithmetic

DESCRIPTION

The function IEEE_SUPPORT_HALTING() can be used to determine if a system provides the ability during program execution to control whether to abort or continue execution after an exception. A call to subroutine IEEE_SET_HALTING with an exception will change the mode for that exception if the system supports this ability for that exception.

This function accepts the following argument:

flag

Must be of type TYPE(IEEE_FLAG_TYPE). It is a scalar. The values for flag may be one of the named constants:

IEEE_DIVIDE_BY_ZERO
IEEE_INEXACT
IEEE_INVALID
IEEE_OVERFLOW
IEEE_UNDERFLOW

IEEE_SUPPORT_HALTING() is an inquiry function. The name of this intrinsic cannot be passed as an argument.

NOTES

The IEEE intrinsic procedures use the named constants contained in a system module, so you must include the following statement in your program:

USE, INTRINSIC :: IEEE_ARITHMETIC
USE, INTRINSIC :: IEEE_EXCEPTIONS

RETURN VALUES

The result type and type parameter is default logical.

The result is true if the system supports the ability to control the action during execution after an exception flag; otherwise, the result is false.

EXAMPLES

Example 1:

USE, INTRINSIC :: IEEE_ARITHMETIC
USE, INTRINSIC :: IEEE_EXCEPTIONS
LOGICAL inexact_halt_flag, invalid_halt_flag
TYPE(IEEE_FLAG_TYPE) :: inexact_halt_flag = IEEE_INEXACT)

inexact_halt_flag = IEEE_SUPPORT_HALTING(inexact_halt_flag)

invalid_halt_flag = IEEE_SUPPORT_HALTING(IEEE_INVALID)