diff options
| author | Olivier Hainque <hainque@gcc.gnu.org> | 2009-09-25 09:14:09 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2009-09-25 09:14:09 +0000 |
| commit | 6e1ee24b2fcd554744a135d2b314fde2f48d674f (patch) | |
| tree | 502e79a928176c069f5412903d56993b0c4c60f0 | |
| parent | 77a0405be48c3de7630897331c7d3baa0dc4adb4 (diff) | |
| download | gcc-6e1ee24b2fcd554744a135d2b314fde2f48d674f.zip gcc-6e1ee24b2fcd554744a135d2b314fde2f48d674f.tar.gz gcc-6e1ee24b2fcd554744a135d2b314fde2f48d674f.tar.bz2 | |
Commit testsuite part of r151322, omitted by mistake then.
* gnat.dg/array7.ads: Include Signed_Integer_Type_Definition.
From-SVN: r152164
| -rw-r--r-- | gcc/testsuite/gnat.dg/array7.ads | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/gcc/testsuite/gnat.dg/array7.ads b/gcc/testsuite/gnat.dg/array7.ads index b47a1b6..bd8ec93 100644 --- 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; |