From 72f5e82196d95008ed12c12de6bdccf24361e106 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 7 Sep 2026 22:02:15 +0200
Subject: Make module entry point more procedure like

---
 testsuite/runnable/aggregate_argument.elna              | 2 ++
 testsuite/runnable/aggregate_equality.elna              | 2 ++
 testsuite/runnable/array_constructor.elna               | 2 ++
 testsuite/runnable/binary_literal.elna                  | 2 ++
 testsuite/runnable/case_constant_label.elna             | 2 ++
 testsuite/runnable/case_else.elna                       | 2 ++
 testsuite/runnable/case_int.elna                        | 2 ++
 testsuite/runnable/case_multilabel.elna                 | 2 ++
 testsuite/runnable/case_record.elna                     | 2 ++
 testsuite/runnable/compile_time_array_access.elna       | 2 ++
 testsuite/runnable/const_copy.elna                      | 2 ++
 testsuite/runnable/const_initialization.elna            | 2 ++
 testsuite/runnable/constant_string_initializer.elna     | 2 ++
 testsuite/runnable/define_multiple_local_variables.elna | 2 ++
 testsuite/runnable/exported_variable/sut.elna           | 2 ++
 testsuite/runnable/fixed_int_max.elna                   | 2 ++
 testsuite/runnable/fixed_int_min.elna                   | 2 ++
 testsuite/runnable/fixed_word_max.elna                  | 2 ++
 testsuite/runnable/float_arithmetic.elna                | 2 ++
 testsuite/runnable/for_call.elna                        | 3 +++
 testsuite/runnable/for_defer.elna                       | 3 +++
 testsuite/runnable/for_each_array.elna                  | 2 ++
 testsuite/runnable/for_each_slice.elna                  | 2 ++
 testsuite/runnable/for_with.elna                        | 5 +++--
 testsuite/runnable/generic_pointer_arithmetic.elna      | 2 ++
 testsuite/runnable/hexadecimal_literal.elna             | 2 ++
 testsuite/runnable/multi_module/sut.elna                | 2 ++
 testsuite/runnable/procedure_cast.elna                  | 2 ++
 testsuite/runnable/record_base_assignment.elna          | 2 ++
 testsuite/runnable/record_base_constructor.elna         | 2 ++
 testsuite/runnable/record_construction.elna             | 2 ++
 testsuite/runnable/record_extension.elna                | 2 ++
 testsuite/runnable/record_layout.elna                   | 2 ++
 testsuite/runnable/recursive_record.elna                | 2 ++
 testsuite/runnable/repeat_loop.elna                     | 2 ++
 testsuite/runnable/return_aggregate.elna                | 2 ++
 testsuite/runnable/slice_array.elna                     | 2 ++
 testsuite/runnable/slice_cast.elna                      | 2 ++
 testsuite/runnable/slice_equality.elna                  | 2 ++
 testsuite/runnable/slice_pointer.elna                   | 2 ++
 testsuite/runnable/slice_slice.elna                     | 2 ++
 testsuite/runnable/two_fields_same_type.elna            | 2 ++
 testsuite/runnable/two_parameters_same_type.elna        | 2 ++
 testsuite/runnable/unary_plus.elna                      | 2 ++
 testsuite/runnable/unicode_escape_character.elna        | 2 ++
 testsuite/runnable/unicode_escape_string.elna           | 2 ++
 46 files changed, 95 insertions(+), 2 deletions(-)

(limited to 'testsuite/runnable')

diff --git a/testsuite/runnable/aggregate_argument.elna b/testsuite/runnable/aggregate_argument.elna
index 7aa6ea0..b36ccc3 100644
--- a/testsuite/runnable/aggregate_argument.elna
+++ b/testsuite/runnable/aggregate_argument.elna
@@ -10,4 +10,6 @@ return r.a = 1 & r.b = 2
 program()
 begin
   assert(f(R{a: 1, b: 2}))
+return 0u8
+
 end.
diff --git a/testsuite/runnable/aggregate_equality.elna b/testsuite/runnable/aggregate_equality.elna
index b8da9e9..be7b4f1 100644
--- a/testsuite/runnable/aggregate_equality.elna
+++ b/testsuite/runnable/aggregate_equality.elna
@@ -10,4 +10,6 @@ return R{a: 1, b: 2} = R{a: 1, b: 2}
 program()
 begin
   assert(f())
+return 0u8
+
 end.
diff --git a/testsuite/runnable/array_constructor.elna b/testsuite/runnable/array_constructor.elna
index aa1c43c..50d243a 100644
--- a/testsuite/runnable/array_constructor.elna
+++ b/testsuite/runnable/array_constructor.elna
@@ -9,4 +9,6 @@ begin
 
   a := [5, 6, 7];
   assert(a[1] = 5 & a[2] = 6 & a[3] = 7)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/binary_literal.elna b/testsuite/runnable/binary_literal.elna
index 6380f24..4f0fc97 100644
--- a/testsuite/runnable/binary_literal.elna
+++ b/testsuite/runnable/binary_literal.elna
@@ -2,4 +2,6 @@ program()
 begin
   assert(0b11 = 3u);
   assert(0B011 = 3u)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/case_constant_label.elna b/testsuite/runnable/case_constant_label.elna
index 2402bf7..49fa2c2 100644
--- a/testsuite/runnable/case_constant_label.elna
+++ b/testsuite/runnable/case_constant_label.elna
@@ -11,4 +11,6 @@ begin
   | limit: matched := true
   end;
   assert(matched)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/case_else.elna b/testsuite/runnable/case_else.elna
index b5ab3c0..68330da 100644
--- a/testsuite/runnable/case_else.elna
+++ b/testsuite/runnable/case_else.elna
@@ -12,4 +12,6 @@ begin
     matched := true
   end;
   assert(matched)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/case_int.elna b/testsuite/runnable/case_int.elna
index ca36fc8..3a446d6 100644
--- a/testsuite/runnable/case_int.elna
+++ b/testsuite/runnable/case_int.elna
@@ -10,4 +10,6 @@ begin
   else
     assert(false)
   end
+return 0u8
+
 end.
diff --git a/testsuite/runnable/case_multilabel.elna b/testsuite/runnable/case_multilabel.elna
index 083bdb0..3a042d2 100644
--- a/testsuite/runnable/case_multilabel.elna
+++ b/testsuite/runnable/case_multilabel.elna
@@ -9,4 +9,6 @@ begin
   else
     assert(false)
   end
+return 0u8
+
 end.
diff --git a/testsuite/runnable/case_record.elna b/testsuite/runnable/case_record.elna
index 26436ea..25b3eb4 100644
--- a/testsuite/runnable/case_record.elna
+++ b/testsuite/runnable/case_record.elna
@@ -15,4 +15,6 @@ begin
   else
     assert(false)
   end
+return 0u8
+
 end.
diff --git a/testsuite/runnable/compile_time_array_access.elna b/testsuite/runnable/compile_time_array_access.elna
index b854635..825e8d5 100644
--- a/testsuite/runnable/compile_time_array_access.elna
+++ b/testsuite/runnable/compile_time_array_access.elna
@@ -5,4 +5,6 @@ var
 program()
 begin
   assert(i = 2)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/const_copy.elna b/testsuite/runnable/const_copy.elna
index 32cee67..fde423b 100644
--- a/testsuite/runnable/const_copy.elna
+++ b/testsuite/runnable/const_copy.elna
@@ -10,4 +10,6 @@ return
 program()
 begin
   f()
+return 0u8
+
 end.
diff --git a/testsuite/runnable/const_initialization.elna b/testsuite/runnable/const_initialization.elna
index 56a6697..b388845 100644
--- a/testsuite/runnable/const_initialization.elna
+++ b/testsuite/runnable/const_initialization.elna
@@ -8,4 +8,6 @@ return
 program()
 begin
   f()
+return 0u8
+
 end.
diff --git a/testsuite/runnable/constant_string_initializer.elna b/testsuite/runnable/constant_string_initializer.elna
index 8fd3b78..0982373 100644
--- a/testsuite/runnable/constant_string_initializer.elna
+++ b/testsuite/runnable/constant_string_initializer.elna
@@ -4,4 +4,6 @@ var
 program()
 begin
   assert(s = "String value")
+return 0u8
+
 end.
diff --git a/testsuite/runnable/define_multiple_local_variables.elna b/testsuite/runnable/define_multiple_local_variables.elna
index 72f0874..bd4ba68 100644
--- a/testsuite/runnable/define_multiple_local_variables.elna
+++ b/testsuite/runnable/define_multiple_local_variables.elna
@@ -6,4 +6,6 @@ return a = 5 & b = 5
 program()
 begin
   assert(f())
+return 0u8
+
 end.
diff --git a/testsuite/runnable/exported_variable/sut.elna b/testsuite/runnable/exported_variable/sut.elna
index 1fbc6ee..753293d 100644
--- a/testsuite/runnable/exported_variable/sut.elna
+++ b/testsuite/runnable/exported_variable/sut.elna
@@ -3,4 +3,6 @@ import helper
 program()
 begin
   assert(Shared = 42)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/fixed_int_max.elna b/testsuite/runnable/fixed_int_max.elna
index f00fd60..7ccf2fb 100644
--- a/testsuite/runnable/fixed_int_max.elna
+++ b/testsuite/runnable/fixed_int_max.elna
@@ -4,4 +4,6 @@ begin
   assert(#max(Int16) = 32767i16);
   assert(#max(Int32) = 2147483647i32);
   assert(#max(Int64) = 9223372036854775807i64)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/fixed_int_min.elna b/testsuite/runnable/fixed_int_min.elna
index fd6b110..f9522fd 100644
--- a/testsuite/runnable/fixed_int_min.elna
+++ b/testsuite/runnable/fixed_int_min.elna
@@ -4,4 +4,6 @@ begin
   assert(#min(Int16) = -32768i16);
   assert(#min(Int32) = -2147483648i32);
   assert(#min(Int64) = -9223372036854775808i64)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/fixed_word_max.elna b/testsuite/runnable/fixed_word_max.elna
index c657614..8fb8d27 100644
--- a/testsuite/runnable/fixed_word_max.elna
+++ b/testsuite/runnable/fixed_word_max.elna
@@ -4,4 +4,6 @@ begin
   assert(#max(Word16) = 65535u16);
   assert(#max(Word32) = 4294967295u32);
   assert(#max(Word64) = 18446744073709551615u64)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/float_arithmetic.elna b/testsuite/runnable/float_arithmetic.elna
index f792b04..e98a26d 100644
--- a/testsuite/runnable/float_arithmetic.elna
+++ b/testsuite/runnable/float_arithmetic.elna
@@ -11,4 +11,6 @@ begin
   assert(3.0f * 0.5f = 1.5f);
   assert(1.0f / 4.0f = 0.25f);
   assert(-3.14f < 0.0f)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/for_call.elna b/testsuite/runnable/for_call.elna
index a8401e6..a2fcd06 100644
--- a/testsuite/runnable/for_call.elna
+++ b/testsuite/runnable/for_call.elna
@@ -6,9 +6,12 @@ begin
   element^ := 1
 return
 
+program()
 begin
   for x of actual do
     set_element(x)
   end;
   assert(actual = [1, 1])
+return 0u8
+
 end.
diff --git a/testsuite/runnable/for_defer.elna b/testsuite/runnable/for_defer.elna
index 6c9291b..04f0404 100644
--- a/testsuite/runnable/for_defer.elna
+++ b/testsuite/runnable/for_defer.elna
@@ -1,6 +1,7 @@
 var
   array: [2]Int := [0, 0]
 
+program()
 begin
   for x of array do
     defer
@@ -8,4 +9,6 @@ begin
     end
   end;
   assert(array = [1, 1])
+return 0u8
+
 end.
diff --git a/testsuite/runnable/for_each_array.elna b/testsuite/runnable/for_each_array.elna
index 806a84b..6eae577 100644
--- a/testsuite/runnable/for_each_array.elna
+++ b/testsuite/runnable/for_each_array.elna
@@ -10,4 +10,6 @@ begin
     i := i + 1u
   end;
   assert(actual = [4u, 8u, 12u, 16u])
+return 0u8
+
 end.
diff --git a/testsuite/runnable/for_each_slice.elna b/testsuite/runnable/for_each_slice.elna
index ecd3cc3..bfc8b44 100644
--- a/testsuite/runnable/for_each_slice.elna
+++ b/testsuite/runnable/for_each_slice.elna
@@ -13,4 +13,6 @@ begin
     i := i + 1u
   end;
   assert(actual = [4u, 8u, 12u, 16u])
+return 0u8
+
 end.
diff --git a/testsuite/runnable/for_with.elna b/testsuite/runnable/for_with.elna
index 582a641..0859ed0 100644
--- a/testsuite/runnable/for_with.elna
+++ b/testsuite/runnable/for_with.elna
@@ -1,10 +1,11 @@
+program()
 var
   actual: [3]Word := [0u, 0u, 0u]
-
-program()
 begin
   for element of [1u, 2u, 3u] with i do
     actual[i] := i * element^
   end;
   assert(actual = [1u, 4u, 9u])
+return 0u8
+
 end.
diff --git a/testsuite/runnable/generic_pointer_arithmetic.elna b/testsuite/runnable/generic_pointer_arithmetic.elna
index 9aad7d6..fe1e197 100644
--- a/testsuite/runnable/generic_pointer_arithmetic.elna
+++ b/testsuite/runnable/generic_pointer_arithmetic.elna
@@ -11,4 +11,6 @@ begin
   second := first + 1;
   assert(cast(second : Word) - cast(first : Word) = 1u);
   assert(second - 1 = first)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/hexadecimal_literal.elna b/testsuite/runnable/hexadecimal_literal.elna
index a168bd2..02bc4c5 100644
--- a/testsuite/runnable/hexadecimal_literal.elna
+++ b/testsuite/runnable/hexadecimal_literal.elna
@@ -2,4 +2,6 @@ program()
 begin
   assert(0xff = 255u);
   assert(0X0f = 15u)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/multi_module/sut.elna b/testsuite/runnable/multi_module/sut.elna
index 666f82a..5ad6860 100644
--- a/testsuite/runnable/multi_module/sut.elna
+++ b/testsuite/runnable/multi_module/sut.elna
@@ -3,4 +3,6 @@ import helper
 program()
 begin
   assert(multiply(3, 4) = 12)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/procedure_cast.elna b/testsuite/runnable/procedure_cast.elna
index 11e0e72..724fadf 100644
--- a/testsuite/runnable/procedure_cast.elna
+++ b/testsuite/runnable/procedure_cast.elna
@@ -7,4 +7,6 @@ program()
 begin
   cb := cast(probe_int: proc(x: ^Char) -> Int);
   assert(cb(nil) = 42)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/record_base_assignment.elna b/testsuite/runnable/record_base_assignment.elna
index 81ee7cf..5f84f20 100644
--- a/testsuite/runnable/record_base_assignment.elna
+++ b/testsuite/runnable/record_base_assignment.elna
@@ -19,4 +19,6 @@ return
 program()
 begin
   f()
+return 0u8
+
 end.
diff --git a/testsuite/runnable/record_base_constructor.elna b/testsuite/runnable/record_base_constructor.elna
index 1ca3214..52936e9 100644
--- a/testsuite/runnable/record_base_constructor.elna
+++ b/testsuite/runnable/record_base_constructor.elna
@@ -17,4 +17,6 @@ begin
   assert(g.a = 3);
   assert(g.b = 5);
   assert(g.c = 7)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/record_construction.elna b/testsuite/runnable/record_construction.elna
index 31fc21f..ca99859 100644
--- a/testsuite/runnable/record_construction.elna
+++ b/testsuite/runnable/record_construction.elna
@@ -9,4 +9,6 @@ var
 program()
 begin
   assert(r.x = 1 & r.y = 2)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/record_extension.elna b/testsuite/runnable/record_extension.elna
index b195759..5f61d60 100644
--- a/testsuite/runnable/record_extension.elna
+++ b/testsuite/runnable/record_extension.elna
@@ -16,4 +16,6 @@ begin
   cast(current_token: ^ElnaLexerStringToken)^.value := "Some string";
 
   assert(token_memory.value = "Some string")
+return 0u8
+
 end.
diff --git a/testsuite/runnable/record_layout.elna b/testsuite/runnable/record_layout.elna
index b94f18a..6150a32 100644
--- a/testsuite/runnable/record_layout.elna
+++ b/testsuite/runnable/record_layout.elna
@@ -53,4 +53,6 @@ return
 program()
 begin
   f()
+return 0u8
+
 end.
diff --git a/testsuite/runnable/recursive_record.elna b/testsuite/runnable/recursive_record.elna
index c940da9..5c59e64 100644
--- a/testsuite/runnable/recursive_record.elna
+++ b/testsuite/runnable/recursive_record.elna
@@ -46,4 +46,6 @@ begin
   free(first);
   free(second);
   free(third)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/repeat_loop.elna b/testsuite/runnable/repeat_loop.elna
index ea50884..084b801 100644
--- a/testsuite/runnable/repeat_loop.elna
+++ b/testsuite/runnable/repeat_loop.elna
@@ -9,4 +9,6 @@ begin
     actual[i] := i
   until i = 4u;
   assert(actual = [1u, 2u, 3u, 4u])
+return 0u8
+
 end.
diff --git a/testsuite/runnable/return_aggregate.elna b/testsuite/runnable/return_aggregate.elna
index ad3ec65..4377d94 100644
--- a/testsuite/runnable/return_aggregate.elna
+++ b/testsuite/runnable/return_aggregate.elna
@@ -10,4 +10,6 @@ return R{ a: 1, b: 2 }
 program()
 begin
   assert(f() = R{ a: 1, b: 2 })
+return 0u8
+
 end.
diff --git a/testsuite/runnable/slice_array.elna b/testsuite/runnable/slice_array.elna
index 2b747ea..7a889a3 100644
--- a/testsuite/runnable/slice_array.elna
+++ b/testsuite/runnable/slice_array.elna
@@ -9,4 +9,6 @@ begin
   assert(slice.length = 3u);
   assert(slice[1] = 2);
   assert(slice[3] = 6)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/slice_cast.elna b/testsuite/runnable/slice_cast.elna
index d11f80a..0d4a861 100644
--- a/testsuite/runnable/slice_cast.elna
+++ b/testsuite/runnable/slice_cast.elna
@@ -4,4 +4,6 @@ var
 program()
 begin
   assert(cast(ints[1u to 4u]: []Int8).length = #size(Int32) * ints.length)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/slice_equality.elna b/testsuite/runnable/slice_equality.elna
index 08eb4f2..1510f40 100644
--- a/testsuite/runnable/slice_equality.elna
+++ b/testsuite/runnable/slice_equality.elna
@@ -8,4 +8,6 @@ begin
   rhs := rhs_payload[1 to 3];
 
   assert(lhs = rhs)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/slice_pointer.elna b/testsuite/runnable/slice_pointer.elna
index 6ebcec9..c19e64a 100644
--- a/testsuite/runnable/slice_pointer.elna
+++ b/testsuite/runnable/slice_pointer.elna
@@ -9,4 +9,6 @@ begin
   assert(slice.length = 3u);
   assert(slice[1] = 2);
   assert(slice[3] = 6)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/slice_slice.elna b/testsuite/runnable/slice_slice.elna
index 459cf51..fcfea8b 100644
--- a/testsuite/runnable/slice_slice.elna
+++ b/testsuite/runnable/slice_slice.elna
@@ -11,4 +11,6 @@ begin
   assert(slice2[1] = 4);
   assert(slice2[2] = 6);
   assert(slice2[3] = 8)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/two_fields_same_type.elna b/testsuite/runnable/two_fields_same_type.elna
index 7d7292d..af591e4 100644
--- a/testsuite/runnable/two_fields_same_type.elna
+++ b/testsuite/runnable/two_fields_same_type.elna
@@ -11,4 +11,6 @@ return r.x + r.y
 program()
 begin
   assert(f() = 5)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/two_parameters_same_type.elna b/testsuite/runnable/two_parameters_same_type.elna
index 41d688c..08a1b5a 100644
--- a/testsuite/runnable/two_parameters_same_type.elna
+++ b/testsuite/runnable/two_parameters_same_type.elna
@@ -4,4 +4,6 @@ return x + y
 program()
 begin
   assert(f(2, 3) = 5)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/unary_plus.elna b/testsuite/runnable/unary_plus.elna
index e4b3762..7f331d4 100644
--- a/testsuite/runnable/unary_plus.elna
+++ b/testsuite/runnable/unary_plus.elna
@@ -6,4 +6,6 @@ begin
   assert(+3 = 3);
   assert(f(5) = 5);
   assert(f(-7) = -7)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/unicode_escape_character.elna b/testsuite/runnable/unicode_escape_character.elna
index 0cfd3e2..f5a4b3f 100644
--- a/testsuite/runnable/unicode_escape_character.elna
+++ b/testsuite/runnable/unicode_escape_character.elna
@@ -2,4 +2,6 @@ program()
 begin
   assert(`\{U+E9}` = `é`);
   assert(`\{U+1F600}` = `😀`)
+return 0u8
+
 end.
diff --git a/testsuite/runnable/unicode_escape_string.elna b/testsuite/runnable/unicode_escape_string.elna
index bec794a..20be668 100644
--- a/testsuite/runnable/unicode_escape_string.elna
+++ b/testsuite/runnable/unicode_escape_string.elna
@@ -2,4 +2,6 @@ program()
 begin
   assert("caf\{U+E9}" = "café");
   assert("Hi \{U+1F600}!" = "Hi 😀!")
+return 0u8
+
 end.
-- 
cgit v1.2.3