case_optimization1.ad[sb]: New test.

	* case_optimization1.ad[sb]: New test.
	* case_optimization_pkg1.ads: New helper.

From-SVN: r137796

gcc/testsuite/ChangeLog

+2008-07-14  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* case_optimization1.ad[sb]: New test.
+	* case_optimization_pkg1.ads: New helper.
+
 2008-07-14  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/36745

gcc/testsuite/gnat.dg/case_optimization1.adb

+-- { dg-do compile }
+-- { dg-options "-O2" }
+
+package body Case_Optimization1 is
+
+   function F (Op_Kind : Internal_Operator_Symbol_Kinds) return Integer is
+   begin
+      case Op_Kind is
+         when A_Not_Operator => return 3;
+         when An_Exponentiate_Operator => return 2;
+         when others => return 1;
+      end case;
+   end;
+
+   function Len (E : Element) return Integer is
+      Op_Kind : Internal_Element_Kinds := Int_Kind (E);
+   begin
+      return F (Int_Kind (E));
+   end;
+
+end Case_Optimization1;

gcc/testsuite/gnat.dg/case_optimization1.ads

+with Case_Optimization_Pkg1; use Case_Optimization_Pkg1;
+
+package Case_Optimization1 is
+
+   function Len (E : Element) return Integer;
+ 
+end Case_Optimization1;