gcc/testsuite/gnat.dg/loop_optimization18.ads

   1 with Loop_Optimization18_Pkg; use Loop_Optimization18_Pkg;
   2
   3 package Loop_Optimization18 is
   4
   5    procedure Proc (Message : Byte_Array_Type);
   6
   7 end Loop_Optimization18;