Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
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
;