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