ieee_support_standard

Date:: 10-12-2011

NAME

IEEE_SUPPORT_STANDARD - Determines if the system supports all the IEEE features specified in the Fortran standard

SYNOPSIS

IEEE_SUPPORT_STANDARD ([[X=]x])

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

Fortran

IEEE Standard for Binary Floating-point Arithmetic

DESCRIPTION

The function IEEE_SUPPORT_STANDARD() can be used to determine if a system supports the IEEE facilities reported as true for valid FLAGS and values from the IEEE_SUPPORT functions for a particular kind of real or for all reals. reals. The IEEE_SUPPORT functions are:

IEEE_SUPPORT_DATATYPE()
IEEE_SUPPORT_DENORMAL()
IEEE_SUPPORT_DIVIDE()
IEEE_SUPPORT_FLAG()
IEEE_SUPPORT_HALTING()
IEEE_SUPPORT_INF()
IEEE_SUPPORT_NAN()
IEEE_SUPPORT_ROUNDING()
IEEE_SUPPORT_SQRT()

This function accepts the following argument:

x: Must be of type real. It may be a scalar or an array.

IEEE_SUPPORT_STANDARD() 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.

If x is present, the result is true if the system supports the IEEE features specified by Fortran for real variables of the same kind type as x; otherwise, the result is false.

If xis not present, the result is true if the system supports the IEEE features specified by Fortran for all real variables supported on this system; otherwise, the result is false.

EXAMPLES

Example 1:

USE, INTRINSIC :: IEEE_ARITHMETIC
USE, INTRINSIC :: IEEE_EXCEPTIONS
REAL xdef
REAL(8) x8
LOGICAL x_std_supported, allx_std_supported

x_std_supported = IEEE_SUPPORT_STD(xdef)

allx_std_supported = IEEE_SUPPORT_STD()