gcc/testsuite/gnat.dg/dynamic_elab1.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

-- { dg-do compile }
-- { dg-options "-gnatE" }

package body Dynamic_Elab1 is

  function Get_Plot return Plot is

    procedure Fill (X : out Plot) is
    begin
      X.Data := Get_R;
    end;

  X : Plot;

  begin
    Fill(X);
    return X;
  end;

end Dynamic_Elab1;