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