gcc/testsuite/gnat.dg/dynamic_elab2.ads

   1 with Dynamic_Elab_Pkg; use Dynamic_Elab_Pkg;
   2
   3 package Dynamic_Elab2 is
   4
   5   type Plot is record
   6     B : Boolean;
   7     Data : R;
   8   end record;
   9   pragma Pack (Plot);
  10
  11   function Get_Plot return Plot;
  12
  13 end Dynamic_Elab2;