gcc/testsuite/gnat.dg/loop_optimization18.ads

with Loop_Optimization18_Pkg; use Loop_Optimization18_Pkg;

package Loop_Optimization18 is

   procedure Proc (Message : Byte_Array_Type);

end Loop_Optimization18;