xref: /csrg-svn/old/dbx/tests/mod/const.mod (revision 44112)
1*44112Sbosticmodule main;
2*44112Sbosticconst
3*44112Sbostic    PI = 3.14159;
4*44112Sbostic    N = 10;
5*44112Sbostic    MESSAGE = "this is a test";
6*44112Sbostic    CH = 'x';
7*44112Sbostic    S = {1, 3, 5};
8*44112Sbostic    B = true;
9*44112Sbostictype
10*44112Sbostic    Color = (RED, BLUE, GREEN);
11*44112Sbosticprocedure p ();
12*44112Sbosticconst
13*44112Sbostic    R = RED;
14*44112Sbostictype
15*44112Sbostic    T = integer;
16*44112Sbosticvar i : integer;
17*44112Sbosticbegin
18*44112Sbosticend p;
19*44112Sbostic
20*44112Sbosticbegin
21*44112Sbosticend main.
22