Commit 6e1ee24b by Olivier Hainque

Commit testsuite part of r151322, omitted by mistake then.

        * gnat.dg/array7.ads: Include Signed_Integer_Type_Definition.

From-SVN: r152164
parent 77a0405b
package Array7 is package Array7 is
type Arr is array (Positive range <>) of Integer; package Range_Subtype is
type Arr_Acc is access Arr; type Arr is array (Positive range <>) of Integer;
type Arr_Acc is access Arr;
subtype My_Range is Integer range 1 .. 25; subtype My_Range is Integer range 1 .. 25;
function Get_Arr (Nbr : My_Range) return Arr_Acc;
end;
function Get_Arr (Nbr : My_Range) return Arr_Acc; package Range_Type is
type My_Range is range 1 .. 25;
type Arr is array (My_Range range <>) of Integer;
type Arr_Acc is access Arr;
function Get_Arr (Nbr : My_Range) return Arr_Acc;
end;
end Array7; end Array7;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment