Commit testsuite part of r151322, omitted by mistake then.

* gnat.dg/array7.ad[bs]: Add check for Signed_Integer_Type_Definition.

From-SVN: r152163
This commit is contained in:
Olivier Hainque 2009-09-25 09:05:16 +00:00
parent 0e505d53d5
commit 77a0405be4

View File

@ -3,9 +3,18 @@
package body Array7 is
function Get_Arr (Nbr : My_Range) return Arr_Acc is
begin
return new Arr (1 .. Nbr);
package body Range_Subtype is
function Get_Arr (Nbr : My_Range) return Arr_Acc is
begin
return new Arr (1 .. Nbr);
end;
end;
package body Range_Type is
function Get_Arr (Nbr : My_Range) return Arr_Acc is
begin
return new Arr (1 .. Nbr);
end;
end;
end Array7;