Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
taft_type2.adb
blob: 3a7a318cf6a526bd5d74630392d356b230bcf2e1 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-g"
}
with
Taft_Type2_Pkg
;
use
Taft_Type2_Pkg
;
package
body
Taft_Type2
is
procedure
Proc
is
A
:
T
;
function
F
return
T
is
My_T
:
T
;
begin
My_T
:=
Open
;
return
My_T
;
end
;
begin
A
:=
F
;
end
;
end
Taft_Type2
;