diff options
Diffstat (limited to 'testsuite/runnable/aggregate_argument.elna')
| -rw-r--r-- | testsuite/runnable/aggregate_argument.elna | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/runnable/aggregate_argument.elna b/testsuite/runnable/aggregate_argument.elna new file mode 100644 index 0000000..2492a0b --- /dev/null +++ b/testsuite/runnable/aggregate_argument.elna @@ -0,0 +1,21 @@ +type + R = record + a: Int; + b: Int + end + +proc f(r: R) -> Int +var + result: Int +begin + if r.a = 1 & r.b = 2 then + result := 0 + else + result := 1 + end; + return result +end + +return f(R(1, 2)) + +end. |
