Commit testsuite part of r151322, omitted by mistake then.

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

From-SVN: r152164

diff --git a/gcc/testsuite/gnat.dg/array7.ads b/gcc/testsuite/gnat.dg/array7.ads
index b47a1b6318e112a756c89d2c4c637dd4d7a6473b..bd8ec933152215bd8f71e1dfbfc019725709f70b 100644 (file)
--- a/gcc/testsuite/gnat.dg/array7.ads
+++ b/gcc/testsuite/gnat.dg/array7.ads
@@ -1,10 +1,20 @@
 package Array7 is
 
-   type Arr is array (Positive range <>) of Integer;
-   type Arr_Acc is access Arr;
+   package Range_Subtype is
+      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;