aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/aggregate_equality.elna
diff options
context:
space:
mode:
authorEugen Wissner <belka@caraus.de>2026-07-14 19:42:32 +0200
committerEugen Wissner <belka@caraus.de>2026-07-14 19:42:32 +0200
commit308a2addf655fe45f2098f8542f0ff1290612cd9 (patch)
tree19230bdb673d306d59b32427ad2a3ad5e9850631 /testsuite/runnable/aggregate_equality.elna
parenta32a61813ebaecf0c1e69fd1481bf09d8c8b1420 (diff)
downloadelna-308a2addf655fe45f2098f8542f0ff1290612cd9.tar.gz
Replace procedure end with return
Diffstat (limited to 'testsuite/runnable/aggregate_equality.elna')
-rw-r--r--testsuite/runnable/aggregate_equality.elna17
1 files changed, 4 insertions, 13 deletions
diff --git a/testsuite/runnable/aggregate_equality.elna b/testsuite/runnable/aggregate_equality.elna
index 9f9e8fc..9cd9ab5 100644
--- a/testsuite/runnable/aggregate_equality.elna
+++ b/testsuite/runnable/aggregate_equality.elna
@@ -4,18 +4,9 @@ type
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()
+proc f(): Bool
+return R(1, 2) = R(1, 2)
+begin
+ assert(f())
end.