rt_gccstream/gcc/testsuite/gnat.dg/import1.ads

8 lines
131 B
Ada

package Import1 is
type Arr is array (Positive range <>) of Integer;
procedure Create (Bounds : Arr);
end Import1;