From 308a2addf655fe45f2098f8542f0ff1290612cd9 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 14 Jul 2026 19:42:32 +0200 Subject: Replace procedure end with return --- testsuite/runnable/record_base_assignment.elna | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'testsuite/runnable/record_base_assignment.elna') diff --git a/testsuite/runnable/record_base_assignment.elna b/testsuite/runnable/record_base_assignment.elna index c91383d..2a15d0f 100644 --- a/testsuite/runnable/record_base_assignment.elna +++ b/testsuite/runnable/record_base_assignment.elna @@ -6,17 +6,16 @@ type y: Word end -proc f(): Int +proc f() var r: R begin r.x := 3u; r.y := 2u; - assert(r.x = 3u & r.y = 2u); + assert(r.x = 3u & r.y = 2u) +return - return 0 -end - - return f() +begin + f() end. -- cgit v1.2.3