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