Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr53.adb
blob: 2e362a7fd2974e81ca1bd2f343e881a522d3f240 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Discr53
is
function
F
return
Rec
is
Data
:
Rec
;
begin
return
Data
;
end
;
type
Ptr
is
access
Rec
;
procedure
Proc
is
Local
:
Ptr
;
begin
Local
:=
new
Rec
'(F);
end;
end Discr53;