1 2 3 4 5 6 7
package Import1 is type Arr is array (Positive range <>) of Integer; procedure Create (Bounds : Arr); end Import1;