Searched refs:FLAG_VALUE (Results 1 - 2 of 2) sorted by relevance
| /netbsd-current/external/gpl3/gcc.old/dist/libgfortran/ieee/ |
| H A D | ieee_exceptions.F90 | 112 elemental subroutine IEEE_GET_FLAG (FLAG, FLAG_VALUE)
115 logical, intent(out) :: FLAG_VALUE local in subroutine:IEEE_GET_FLAG
123 FLAG_VALUE = (IAND(helper(), FLAG%hidden) /= 0)
126 elemental subroutine IEEE_SET_FLAG (FLAG, FLAG_VALUE)
129 logical, intent(in) :: FLAG_VALUE local in subroutine:IEEE_SET_FLAG
138 if (FLAG_VALUE) then
|
| /netbsd-current/external/gpl3/gcc/dist/libgfortran/ieee/ |
| H A D | ieee_exceptions.F90 | 112 elemental subroutine IEEE_GET_FLAG (FLAG, FLAG_VALUE)
115 logical, intent(out) :: FLAG_VALUE local in subroutine:IEEE_GET_FLAG
123 FLAG_VALUE = (IAND(helper(), FLAG%hidden) /= 0)
126 elemental subroutine IEEE_SET_FLAG (FLAG, FLAG_VALUE)
129 logical, intent(in) :: FLAG_VALUE local in subroutine:IEEE_SET_FLAG
138 if (FLAG_VALUE) then
|
Completed in 193 milliseconds