Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt48_pkg1.adb
blob: 306551cea5f701c5cd76b8aec1abf99c08586825 [
file
] [
log
] [
blame
]
package
body
Opt48_Pkg1
is
function
G
return
Rec
is
begin
return
(
32
,
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
);
end
G
;
X
:
Rec
:=
F
;
Y
:
Rec
:=
G
;
Z
:
Rec
:=
F
;
function
Get_Z
return
Rec
is
begin
return
Z
;
end
;
end
Opt48_Pkg1
;