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