1: #line 1373 "./lpsrc/flx_regress.pak"
2:
3:
4:
5: var cheat : int = 0;
6: gen f():int = {
7: ++cheat;
8:
9: return cheat;
10: }
11:
12: print "F 1="; print$ f(); endl;
13:
14: body """
15: static int x = 0;
16: int g() { ++x; return x; }
17: """;
18:
19: gen g : 1 -> int;
20:
21: print "C 1="; print$ g(); endl;
22:
23: fun d(x:int) => x + x;
24:
25:
26: print "F Even? "; print$ d(f()); endl;
27: print "F Even? "; print$ d(f()); endl;
28:
29: print "C Even? "; print$ d(g()); endl;
30: print "C Even? "; print$ d(g()); endl;
31:
32: print "F 4="; print$ f(); endl;
33: print "C 4="; print$ g(); endl;