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