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