2 -- { dg-options "-O2" }
4 procedure Boolean_Subtype1 is
6 subtype Component_T is Boolean;
8 function Condition return Boolean is
15 function Component_Value return Integer is
21 Most_Significant : Component_T := False;
22 Least_Significant : Component_T := True;
27 Most_Significant := True;
31 Least_Significant := Component_T'Val (Component_Value);
34 if Least_Significant < Most_Significant then
35 Least_Significant := Most_Significant;
38 if Least_Significant /= True then