gcc/testsuite/gnat.dg/import1.ads - gcc - Git at Google

 package Import1 is

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

    procedure Create (Bounds : Arr);

 end Import1;
	package Import1 is

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

	procedure Create (Bounds : Arr);

	end Import1;