Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gnat.dg
/
discr6_pkg.ads
blob: 11d713c244dfb3a6f7828c016e2fb40a2d91b225 [
file
] [
log
] [
blame
]
generic
type T
(<>)
is
private
;
package
Discr6_Pkg
is
function
X
(
A
:
T
)
return
Integer
;
pragma
Interface
(
C
,
X
);
pragma IMPORT_FUNCTION
(
INTERNAL
=>
X
,
EXTERNAL
=>
X
,
PARAMETER_TYPES
=>
(
T
),
MECHANISM
=>
(
Descriptor
(
S
)));
end
Discr6_Pkg
;