tests update
This commit is contained in:
@ -11,15 +11,12 @@
|
||||
011: }
|
||||
012:
|
||||
013: entry (arg) := {
|
||||
014: [ integer: result ; rec: w]
|
||||
015: if ( result = result ) then {
|
||||
016: if ( result < w.y ) then {
|
||||
017: result := 8;
|
||||
018: } else {
|
||||
019: result := 9;
|
||||
020: }(* *)
|
||||
021: } else {
|
||||
022: result := bar('c', 7);
|
||||
023: }
|
||||
024: return 0;
|
||||
025: }
|
||||
014: [ integer: r ; integer: s; Boolean: x]
|
||||
015: (* x := (r < s) & x; *)
|
||||
016: if ( ( r < s ) & (s = r) ) then {
|
||||
017: r := 5;
|
||||
018: } else {
|
||||
019: r := 7;
|
||||
020: }
|
||||
021: return 0;
|
||||
022: }
|
||||
|
Reference in New Issue
Block a user