tests update
This commit is contained in:
@ -35,26 +35,26 @@
|
||||
035:
|
||||
036: function entry: string2integer
|
||||
037:
|
||||
038:
|
||||
039: type rec: [integer: x; integer: y; integer: z; integer: a; integer: b; integer: c; integer: d]
|
||||
040: type T2: rec -> integer
|
||||
041: type T: integer -> integer
|
||||
042: function bar: T2
|
||||
043: function ahh: T
|
||||
044:
|
||||
045: ahh (a) := {
|
||||
046: a := printInteger(a);
|
||||
047: return -1;
|
||||
048: }
|
||||
049:
|
||||
050: bar (a, b, c,d,e,f,g) := {
|
||||
051: a := printInteger(g);
|
||||
052: return b;
|
||||
053: }
|
||||
054:
|
||||
055: entry (arg) := {
|
||||
056: [integer:x; integer:y; integer: result]
|
||||
057:
|
||||
038: type rec: [integer: x; integer: y; integer: z; integer: a; integer: b; integer: c; integer: d]
|
||||
039: type T2: rec -> integer
|
||||
040: type T: integer -> integer
|
||||
041: function bar: T2
|
||||
042: function ahh: T
|
||||
043:
|
||||
044: ahh (a) := {
|
||||
045: a := printInteger(a);
|
||||
046: return -1;
|
||||
047: }
|
||||
048:
|
||||
049: bar (a, b, c,d,e,f,g) := {
|
||||
050: a := printInteger(g);
|
||||
051: return b;
|
||||
052: }
|
||||
053:
|
||||
054: entry (arg) := {
|
||||
055: [integer:x; integer:y; integer: result; character: a]
|
||||
056: a := 'a';
|
||||
057: x := printCharacter(a);
|
||||
058: result := bar(1,2,3,4,5,6,7);
|
||||
059: return 1;
|
||||
060: }
|
||||
|
Reference in New Issue
Block a user