Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
access_func.adb
blob: 8354e7453552b9915c305055d0402c01476c3454 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
procedure access_func
is
type
Abomination
is
access
function
(
X
:
Integer
)
return
access
function
(
Y
:
Float
)
return
access
function
return
Integer
;
begin
null
;
end
;