14     integer(kind=1) :: flag = 0  component
50   elemental subroutine ieee_get_flag(flag, flag_value)  argument
51     type(ieee_flag_type), intent(in) :: flag  local
55   elemental subroutine ieee_get_halting_mode(flag, halting)  argument
56     type(ieee_flag_type), intent(in) :: flag  local
68   pure subroutine ieee_set_flag(flag, flag_value)  argument
69     type(ieee_flag_type), intent(in) :: flag  local
73   pure subroutine ieee_set_halting_mode(flag, halting)  argument
74     type(ieee_flag_type), intent(in) :: flag  local
87     type(ieee_flag_type), intent(in) :: flag  local
91     type(ieee_flag_type), intent(in) :: flag  local
96     type(ieee_flag_type), intent(in) :: flag  local
101     type(ieee_flag_type), intent(in) :: flag  local
106     type(ieee_flag_type), intent(in) :: flag  local
111     type(ieee_flag_type), intent(in) :: flag  local
116     type(ieee_flag_type), intent(in) :: flag  local
122     type(ieee_flag_type), intent(in) :: flag  local