Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gnat.dg
/
test_tables.adb
blob: d0abbfa576398453bc31c44d97140b8576e3471b [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnatws"
}
with
G_tables
;
procedure test_tables
is
package
Inst
is
new
G_Tables
(
Integer
);
use
Inst
;
It
:
Inst
.
Table
:=
Create
(
15
);
begin
null
;
end
;