blob: 88f76688c17830bfce6406e4f0e7996e17134a20 [file] [log] [blame]
-- { 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;