gcc/testsuite/gnat.dg/import1.ads

package Import1 is

   type Arr is array (Positive range <>) of Integer;

   procedure Create (Bounds : Arr);

end Import1;