summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/case_optimization1.ads
blob: 737c9b70a56bbaa1a2ca9135db5a46a6e2975923 (plain)
1
2
3
4
5
6
7
with Case_Optimization_Pkg1; use Case_Optimization_Pkg1;

package Case_Optimization1 is

   function Len (E : Element) return Integer;
 
end Case_Optimization1;