Searched refs:GRADUAL (Results 1 - 2 of 2) sorted by relevance

/netbsd-current/external/gpl3/gcc/dist/libgfortran/ieee/
H A Dieee_arithmetic.F901014 subroutine IEEE_GET_UNDERFLOW_MODE (GRADUAL)
1016 logical, intent(out) :: GRADUAL local in subroutine:IEEE_GET_UNDERFLOW_MODE
1024 GRADUAL = (helper() /= 0)
1030 subroutine IEEE_SET_UNDERFLOW_MODE (GRADUAL)
1032 logical, intent(in) :: GRADUAL local in subroutine:IEEE_SET_UNDERFLOW_MODE
1041 call helper(merge(1, 0, GRADUAL))
/netbsd-current/external/gpl3/gcc.old/dist/libgfortran/ieee/
H A Dieee_arithmetic.F901226 subroutine IEEE_GET_UNDERFLOW_MODE (GRADUAL)
1228 logical, intent(out) :: GRADUAL local in subroutine:IEEE_GET_UNDERFLOW_MODE
1236 GRADUAL = (helper() /= 0)
1242 subroutine IEEE_SET_UNDERFLOW_MODE (GRADUAL)
1244 logical, intent(in) :: GRADUAL local in subroutine:IEEE_SET_UNDERFLOW_MODE
1253 call helper(merge(1, 0, GRADUAL))

Completed in 139 milliseconds