gcc/testsuite/gnat.dg/opt78.ads

   1 package Opt78 is
   2
   3    subtype Reasonable is Integer range 1..10;
   4
   5    type UC (D: Reasonable := 2) is record
   6       S: String (1 .. D) := "Hi";
   7    end record;
   8
   9    type AUC is access all UC;
  10
  11    procedure Proc (P : UC; Msg : String);
  12
  13 end Opt78;