gcc-4.9/gcc/testsuite/gnat.dg/dynamic_elab_pkg.ads


1
2
3
4
5
6
7
8
9
10

package Dynamic_Elab_Pkg is

  type R is record
    Code : Integer;
    Val  : Boolean;
  end record;

  function Get_R return R;

end Dynamic_Elab_Pkg;