summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/dynamic_elab1.adb
blob: 88f76688c17830bfce6406e4f0e7996e17134a20 (plain)
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;