gcc/testsuite/gnat.dg/rep_clause5.ads

   1 with Rep_Clause5_Pkg; use Rep_Clause5_Pkg;
   2
   3 package Rep_Clause5 is
   4
   5     Bad_Number : exception;
   6     Too_Large  : exception;
   7
   8     type LNumber_Type is range 0..99999;
   9
  10     procedure Merge_Numbered(LNodes : in out LNodes_Ptr);
  11
  12 end Rep_Clause5;