Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt20_pkg.ads
blob: 2b9b3e8bdf0ccc86ee0f99e496b65c8830eda416 [
file
] [
log
] [
blame
]
package
Opt20_Pkg
is
procedure
Write_Str
(
S
:
String
);
type
Fail_Proc
is
access procedure
(
S
:
String
);
procedure
My_Fail
(
S
:
String
);
Fail
:
Fail_Proc
:=
My_Fail
'Access;
function Get_Name_String (Id : Integer) return String;
end Opt20_Pkg;