Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
valid4_pkg.ads
blob: 91c36d74d4f68e6ce3b40f444287749c3316812e [
file
] [
log
] [
blame
]
package
Valid4_Pkg
is
Global
:
Boolean
:=
False
;
procedure
Proc
(
B
:
in
out
Boolean
);
pragma
Export_Procedure
(
Proc
,
External
=>
"Proc"
,
Parameter_Types
=>
(
Boolean
),
Mechanism
=>
Reference
);
end
Valid4_Pkg
;