Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
elab8.adb
blob: a54ba9d53f8c0c66393da07e7a1c49065357b460 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnatN"
}
with
Elab8_Gen
;
procedure
Elab8
is
package
My_G
is
new
Elab8_Gen
(
Integer
);
begin
My_G
.
Compare
(
0
,
1
);
end
;