diff options
| author | Olivier Hainque <hainque@gcc.gnu.org> | 2009-09-25 09:05:16 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2009-09-25 09:05:16 +0000 |
| commit | 77a0405be48c3de7630897331c7d3baa0dc4adb4 (patch) | |
| tree | 00dd09dbbb68465bff0a7baea7ff1f4bbb967f59 | |
| parent | 0e505d53d5819b2820651261fb3999236d648423 (diff) | |
| download | gcc-77a0405be48c3de7630897331c7d3baa0dc4adb4.zip gcc-77a0405be48c3de7630897331c7d3baa0dc4adb4.tar.gz gcc-77a0405be48c3de7630897331c7d3baa0dc4adb4.tar.bz2 | |
Commit testsuite part of r151322, omitted by mistake then.
* gnat.dg/array7.ad[bs]: Add check for Signed_Integer_Type_Definition.
From-SVN: r152163
| -rw-r--r-- | gcc/testsuite/gnat.dg/array7.adb | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/gcc/testsuite/gnat.dg/array7.adb b/gcc/testsuite/gnat.dg/array7.adb index ff4e9e4..d9df597 100644 --- a/gcc/testsuite/gnat.dg/array7.adb +++ b/gcc/testsuite/gnat.dg/array7.adb @@ -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; |