← Back to branch summary

~ubuntu-branches/ubuntu/raring/adacontrol/raring

« back to all changes in this revision

Viewing changes to test/t_array_declarations.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2010-03-13 14:01:37 UTC
  • mfrom: (1.1.5 upstream) (9.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20100313140137-50ia1bbb5qld97fd
Tags: 1.12~b1-1
http://bugs.debian.org/566061
New upstream beta version.  Really closes: #566061 even on i386.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_array_declarations.adb
1
1
procedure T_Array_Declarations is
2
 
 
3
 
   -- First
4
 
   type Range0 is range 0 .. 5;
5
 
   type Range1 is range 1 .. 5;
6
 
   type Range2 is range 2 .. 5;
7
 
 
8
 
   type C10 is array (0 .. 5) of Integer;
9
 
   type C11 is array (1 .. 5) of Integer;
10
 
   type C12 is array (2 .. 5) of Integer;
11
 
 
12
 
   type C20 is array (Range0) of Integer;
13
 
   type C21 is array (Range1) of Integer;
14
 
   type C22 is array (Range2) of Integer;
15
 
 
16
 
   type C31 is array (Range0 range Range0'Succ (Range0'First) .. Range0'Last) of Integer;
17
 
   type C32 is array (Range0 range 2 .. Range0'Last) of Integer;
18
 
 
19
 
   type U0 is array (Range0 range <>) of Integer;
20
 
   type U1 is array (Range1 range <>) of Integer;
21
 
   type U2 is array (Range2 range <>) of Integer;
22
 
 
23
 
   subtype S0 is U0 (Range0'First .. Range0'Last);
24
 
   subtype S1 is U1 (Range1);
25
 
   subtype S2 is U2 (Range2'Range);
26
 
 
27
 
   V0 : array (0 .. 5) of Integer;
28
 
   V1 : array (1 .. 5) of Integer;
29
 
   V2 : array (2 .. 5) of Integer;
30
 
 
31
 
   V3 : array (0..1, 1..4, 2..10) of Integer;
32
 
 
33
 
   -- Max_Length
 
2
   procedure Indexes    is separate;
 
3
   procedure Dimensions is separate;
 
4
   procedure Component  is separate;
34
5
begin
35
6
   null;
36
7
end T_Array_Declarations;