Home | History | Annotate | Download | only in ieee

Lines Matching defs:FLAG

112   elemental subroutine IEEE_GET_FLAG (FLAG, FLAG_VALUE)
114     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
123     FLAG_VALUE = (IAND(helper(), FLAG%hidden) /= 0)
126   elemental subroutine IEEE_SET_FLAG (FLAG, FLAG_VALUE)
128     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
139       call helper(FLAG%hidden, 0)
141       call helper(0, FLAG%hidden)
147   elemental subroutine IEEE_GET_HALTING_MODE (FLAG, HALTING)
149     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
158     HALTING = (IAND(helper(), FLAG%hidden) /= 0)
161   elemental subroutine IEEE_SET_HALTING_MODE (FLAG, HALTING)
163     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
174       call helper(FLAG%hidden, 0)
176       call helper(0, FLAG%hidden)
182   pure logical function IEEE_SUPPORT_HALTING (FLAG)
184     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
187       pure integer function helper(flag) &
189         integer, intent(in), value :: flag
193     IEEE_SUPPORT_HALTING = (helper(FLAG%hidden) /= 0)
196   pure logical function IEEE_SUPPORT_FLAG_NOARG (FLAG)
198     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
201       pure integer function helper(flag) &
203         integer, intent(in), value :: flag
207     IEEE_SUPPORT_FLAG_NOARG = (helper(FLAG%hidden) /= 0)
210   pure logical function IEEE_SUPPORT_FLAG_4 (FLAG, X) result(res)
212     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
214     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)
217   pure logical function IEEE_SUPPORT_FLAG_8 (FLAG, X) result(res)
219     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
221     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)
225   pure logical function IEEE_SUPPORT_FLAG_10 (FLAG, X) result(res)
227     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
229     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)
234   pure logical function IEEE_SUPPORT_FLAG_16 (FLAG, X) result(res)
236     type(IEEE_FLAG_TYPE), intent(in) :: FLAG
238     res = IEEE_SUPPORT_FLAG_NOARG(FLAG)