Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr35.adb
blob: 16bacd6c19b0fdd61c6aa0334bbe9caa9b2b1eee [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Discr35
is
procedure
Proc1
is
R
:
Rec2
:=
Null_Rec2
;
begin
null
;
end
;
procedure
Proc2
is
R
:
Rec2
;
begin
R
:=
Null_Rec2
;
end
;
end
Discr35
;