Attention des changements sont bientôt à prévoir sur l'instance gitea d'Aurore :
package Import1 is
type Arr is array (Positive range <>) of Integer;
procedure Create (Bounds : Arr);
end Import1;