1MODULE ConstFold14;
2
3IMPORT
4  Out := Out0;
5
6CONST
7  a = "AA";
8  b = "AB";
9
10  lt1 = a < a;
11  le1 = a <= a;
12  eq1 = a = a;
13  ne1 = a # a;
14  ge1 = a >= a;
15  gt1 = a > a;
16
17  lt2 = a < b;
18  le2 = a <= b;
19  eq2 = a = b;
20  ne2 = a # b;
21  ge2 = a >= b;
22  gt2 = a > b;
23
24  lt3 = b < a;
25  le3 = b <= a;
26  eq3 = b = a;
27  ne3 = b # a;
28  ge3 = b >= a;
29  gt3 = b > a;
30
31PROCEDURE Test*;
32BEGIN
33  Out.Bool(lt1); Out.Ln;
34  Out.Bool(le1); Out.Ln;
35  Out.Bool(eq1); Out.Ln;
36  Out.Bool(ne1); Out.Ln;
37  Out.Bool(ge1); Out.Ln;
38  Out.Bool(gt1); Out.Ln;
39
40  Out.Bool(lt2); Out.Ln;
41  Out.Bool(le2); Out.Ln;
42  Out.Bool(eq2); Out.Ln;
43  Out.Bool(ne2); Out.Ln;
44  Out.Bool(ge2); Out.Ln;
45  Out.Bool(gt2); Out.Ln;
46
47  Out.Bool(lt3); Out.Ln;
48  Out.Bool(le3); Out.Ln;
49  Out.Bool(eq3); Out.Ln;
50  Out.Bool(ne3); Out.Ln;
51  Out.Bool(ge3); Out.Ln;
52  Out.Bool(gt3); Out.Ln;
53END Test;
54
55END ConstFold14.
56