aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/return_aggregate.elna
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2026-07-07 21:39:57 +0200
committerEugen Wissner <belka@caraus.de>2026-07-07 21:39:57 +0200
commit79521d91b2bb85652fd29f5c44279338d55c757f (patch)
treed3b5b73177f63fd5ff684a8aba6f7b9af84dab27 /testsuite/runnable/return_aggregate.elna
parent470bfba45661d19558c0bf43b7819696a925ecb4 (diff)
downloadelna-79521d91b2bb85652fd29f5c44279338d55c757f.tar.gz
Allow multiple parameters with same type
Diffstat (limited to 'testsuite/runnable/return_aggregate.elna')
-rw-r--r--testsuite/runnable/return_aggregate.elna16
1 files changed, 3 insertions, 13 deletions
diff --git a/testsuite/runnable/return_aggregate.elna b/testsuite/runnable/return_aggregate.elna
index 54d833d..fc37565 100644
--- a/testsuite/runnable/return_aggregate.elna
+++ b/testsuite/runnable/return_aggregate.elna
@@ -4,22 +4,12 @@ type
b: Int
end
-proc g() -> R
+proc f(): 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()
+ assert(f() = R(1, 2));
+ return 0
end.