diff options
Diffstat (limited to 'gcc')
| -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; |