xref: /csrg-svn/old/dbx/tests/pc/arrays.p (revision 44140)
1*44140Sbosticprogram test (input, output);
2*44140Sbostictype
3*44140Sbostic    Color = (RED, BLUE, GREEN);
4*44140Sbostic    IntArray = array [1..10] of integer;
5*44140Sbosticvar a : IntArray;
6*44140Sbostic    i : integer;
7*44140Sbostic    b : array [Color] of integer;
8*44140Sbostic    c : Color;
9*44140Sbostic
10*44140Sbosticprocedure p (i : integer; var a : IntArray; j : integer);
11*44140Sbosticbegin
12*44140Sbostic    a[3] := i;
13*44140Sbostic    a[4] := j;
14*44140Sbosticend;
15*44140Sbostic
16*44140Sbosticbegin
17*44140Sbostic    for i := 1 to 10 do begin
18*44140Sbostic	a[i] := i;
19*44140Sbostic    end;
20*44140Sbostic    p(4, a, 5);
21*44140Sbostic    b[BLUE] := 3;
22*44140Sbostic    c := RED;
23*44140Sbosticend.
24