Home | History | Annotate | Download | only in ieee

Lines Matching defs:FLAG

175   elemental subroutine IEEE_GET_FLAG (FLAG, FLAG_VALUE)
177     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
186     FLAG_VALUE = (IAND(helper(), FLAG%hidden) /= 0)
189   elemental subroutine IEEE_SET_FLAG (FLAG, FLAG_VALUE)
191     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
202       call helper(FLAG%hidden, 0)
204       call helper(0, FLAG%hidden)
210   elemental subroutine IEEE_GET_HALTING_MODE (FLAG, HALTING)
212     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
221     HALTING = (IAND(helper(), FLAG%hidden) /= 0)
224   elemental subroutine IEEE_SET_HALTING_MODE (FLAG, HALTING)
226     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
237       call helper(FLAG%hidden, 0)
239       call helper(0, FLAG%hidden)
245   pure logical function IEEE_SUPPORT_HALTING (FLAG)
247     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
250       pure integer function helper(flag) &
252         integer, intent(in), value :: flag
256     IEEE_SUPPORT_HALTING = (helper(FLAG%hidden) /= 0)
259   pure logical function IEEE_SUPPORT_FLAG_NOARG (FLAG)
261     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
264       pure integer function helper(flag) &
266         integer, intent(in), value :: flag
270     IEEE_SUPPORT_FLAG_NOARG = (helper(FLAG%hidden) /= 0)
273   pure logical function IEEE_SUPPORT_FLAG_4 (FLAG, X) result(res)
275     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
277     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)
280   pure logical function IEEE_SUPPORT_FLAG_8 (FLAG, X) result(res)
282     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
284     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)
288   pure logical function IEEE_SUPPORT_FLAG_10 (FLAG, X) result(res)
290     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
292     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)
297   pure logical function IEEE_SUPPORT_FLAG_16 (FLAG, X) result(res)
299     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
301     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)