test_ieee_interrupt(3I)

NAME
     TEST_IEEE_INTERRUPT - Returns the state of a floating-point interrupt

SYNOPSIS
     TEST_IEEE_INTERRUPT ([INTERRUPT=]interrupt)

STANDARDS
     Fortran extension

     IEEE Standard for Binary Floating-point Arithmetic

DESCRIPTION
     The TEST_IEEE_INTERRUPT intrinsic function returns the state of a
     specified floating-point interrupt.  It accepts the following
     argument:

     interrupt      Must be of an integer type that occupies a full word.
                    If interrupt is an array, it must be 1-dimensional.
                    The single value in the scalar argument case, or each
                    element in the array argument case, must be set to one
                    of the values represented by the following named
                    constants:

                    * IEEE_NTPT_CRI_INVALID_OPND (valid only on Cray T90
                      systems that support IEEE floating-point arithmetic)

                    * IEEE_NTPT_INEXACT_RESULT

                    * IEEE_NTPT_UNDERFLOW

                    * IEEE_NTPT_OVERFLOW

                    * IEEE_NTPT_DIV_BY_ZERO

                    * IEEE_NTPT_INVALID_OPR

                    * IEEE_NTPT_ALL (all interrupts in this list)

                    Note that the values represented by these named
                    constants are different from the similarly-named named
                    constants listed on TEST_IEEE_EXCEPTION(3I).

     TEST_IEEE_INTERRUPT is an elemental 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 FTN_IEEE_DEFINITIONS

RETURN VALUES
     The result type and type parameter are default logical.  If interrupt
     is an array, the result is an array of the same size.

     If interrupt is scalar, the result has the value .TRUE. if the
     specified floating-point interrupt is enabled.  It has the value
     .FALSE. if the specified floating-point interrupt is disabled.  If
     interrupt has the value .IEEE_NTPT_ALL., the result has the value
     .TRUE. if all interrupts are enabled; otherwise its value is .FALSE..

     If interrupt is an array, each element of the result has the value
     .TRUE. if the interrupt specified by the corresponding element of
     interrupt is enabled.  It has the value .FALSE.  if the interrupt
     specified by the corresponding element of interrupt is disabled.  If
     an element of interrupt has the value .IEEE_NTPT_ALL., the
     corresponding element of the result has the value .TRUE. if all
     interrupts are enabled; otherwise its value is .FALSE..

EXAMPLES
     See the example on DISABLE_IEEE_INTERRUPT(3I).

SEE ALSO
     DISABLE_IEEE_INTERRUPT(3I)