2 -- { dg-options "-O2" }
4 package body Case_Optimization1 is
6 function F (Op_Kind : Internal_Operator_Symbol_Kinds) return Integer is
9 when A_Not_Operator => return 3;
10 when An_Exponentiate_Operator => return 2;
11 when others => return 1;
15 function Len (E : Element) return Integer is
16 Op_Kind : Internal_Element_Kinds := Int_Kind (E);
18 return F (Int_Kind (E));
21 end Case_Optimization1;