gcc/testsuite/gnat.dg/loop_optimization11_pkg.ads

   1 package Loop_Optimization11_Pkg is\r
   2 \r
   3    function Img (X : Integer) return String;\r
   4 \r
   5    procedure Put_Line (Data : String);\r
   6 \r
   7    type Prot is (Execute, Execute_Read, Execute_Read_Write);\r
   8 \r
   9    type Mem is (Mem_Image, Mem_Mapped, Mem_Private, Unknown);\r
  10 \r
  11 end Loop_Optimization11_Pkg;\r