Searched refs:HALTING (Results 1 - 2 of 2) sorted by relevance
/netbsd-current/external/gpl3/gcc.old/dist/libgfortran/ieee/ | ||
H A D | ieee_exceptions.F90 | 147 elemental subroutine IEEE_GET_HALTING_MODE (FLAG, HALTING) 150 logical, intent(out) :: HALTING local in subroutine:IEEE_GET_HALTING_MODE 158 HALTING = (IAND(helper(), FLAG%hidden) /= 0) 161 elemental subroutine IEEE_SET_HALTING_MODE (FLAG, HALTING) 164 logical, intent(in) :: HALTING local in subroutine:IEEE_SET_HALTING_MODE 173 if (HALTING) then |
/netbsd-current/external/gpl3/gcc/dist/libgfortran/ieee/ | ||
H A D | ieee_exceptions.F90 | 147 elemental subroutine IEEE_GET_HALTING_MODE (FLAG, HALTING) 150 logical, intent(out) :: HALTING local in subroutine:IEEE_GET_HALTING_MODE 158 HALTING = (IAND(helper(), FLAG%hidden) /= 0) 161 elemental subroutine IEEE_SET_HALTING_MODE (FLAG, HALTING) 164 logical, intent(in) :: HALTING local in subroutine:IEEE_SET_HALTING_MODE 173 if (HALTING) then |
Completed in 243 milliseconds