Intel® Fortran Compiler 17.0 Developer Guide and Reference
Intrinsic Module Subroutine (Generic): Stores the current state of the floating-point environment. This is an impure subroutine.
USE, INTRINSIC :: IEEE_EXCEPTIONS
CALL IEEE_GET_STATUS (status_value)
status_value |
(Input) Must be scalar and of type TYPE (IEEE_STATUS_TYPE). It stores the floating-point status. The result can only be used if IEEE_SET_STATUS is invoked. |
Consider the following:
USE, INTRINSIC :: IEEE_EXCEPTIONS ! Can also use IEEE_ARITHMETIC
TYPE(IEEE_ STATUS_TYPE) STATUS
...
CALL IEEE_GET_STATUS(STATUS) ! Stores the floating-point status
CALL IEEE_SET_FLAG(IEEE_ALL,.FALSE.) ! Sets all flags to be quiet
...
CALL IEEE_SET_STATUS(STATUS) ! Restores the floating-point status