gcc/testsuite/gnat.dg/dynamic_elab1.ads

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