Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
dynamic_elab1.adb
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
;