Implement program entry point

44 files changed, 44 insertions, 1 deletions

diff --git a/testsuite/runnable/aggregate_argument.elna b/testsuite/runnable/aggregate_argument.elna
index 875265e..7aa6ea0 100644
--- a/testsuite/runnable/aggregate_argument.elna
+++ b/testsuite/runnable/aggregate_argument.elna
@@ -7,6 +7,7 @@ type
 proc f(r: R) -> Bool
 return r.a = 1 & r.b = 2
 
+program()
 begin
   assert(f(R{a: 1, b: 2}))
 end.
diff --git a/testsuite/runnable/aggregate_equality.elna b/testsuite/runnable/aggregate_equality.elna
index bfe2174..b8da9e9 100644
--- a/testsuite/runnable/aggregate_equality.elna
+++ b/testsuite/runnable/aggregate_equality.elna
@@ -7,6 +7,7 @@ type
 proc f() -> Bool
 return R{a: 1, b: 2} = R{a: 1, b: 2}
 
+program()
 begin
   assert(f())
 end.
diff --git a/testsuite/runnable/array_constructor.elna b/testsuite/runnable/array_constructor.elna
index 0e7b08b..aa1c43c 100644
--- a/testsuite/runnable/array_constructor.elna
+++ b/testsuite/runnable/array_constructor.elna
@@ -2,6 +2,7 @@ var
   a: [3]Int := [1, 2, 3]
   b: [2]Int := [4, 0]
 
+program()
 begin
   assert(a[1] = 1 & a[2] = 2 & a[3] = 3);
   assert(b[1] = 4 & b[2] = 0);
diff --git a/testsuite/runnable/binary_literal.elna b/testsuite/runnable/binary_literal.elna
index 0c2cbd9..6380f24 100644
--- a/testsuite/runnable/binary_literal.elna
+++ b/testsuite/runnable/binary_literal.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert(0b11 = 3u);
   assert(0B011 = 3u)
diff --git a/testsuite/runnable/case_constant_label.elna b/testsuite/runnable/case_constant_label.elna
index 5d55e9f..2402bf7 100644
--- a/testsuite/runnable/case_constant_label.elna
+++ b/testsuite/runnable/case_constant_label.elna
@@ -4,6 +4,7 @@ var
   x: Int := 2
   matched: Bool := false
 
+program()
 begin
   case x of
     1: assert(false)
diff --git a/testsuite/runnable/case_else.elna b/testsuite/runnable/case_else.elna
index dbec6df..b5ab3c0 100644
--- a/testsuite/runnable/case_else.elna
+++ b/testsuite/runnable/case_else.elna
@@ -2,6 +2,7 @@ var
   x: Int := 5
   matched: Bool := false
 
+program()
 begin
   case x of
     1: assert(false)
diff --git a/testsuite/runnable/case_int.elna b/testsuite/runnable/case_int.elna
index 3b770a7..ca36fc8 100644
--- a/testsuite/runnable/case_int.elna
+++ b/testsuite/runnable/case_int.elna
@@ -1,6 +1,7 @@
 var
   x: Int := 2
 
+program()
 begin
   case x of
     1: assert(false)
diff --git a/testsuite/runnable/case_multilabel.elna b/testsuite/runnable/case_multilabel.elna
index be647d4..083bdb0 100644
--- a/testsuite/runnable/case_multilabel.elna
+++ b/testsuite/runnable/case_multilabel.elna
@@ -1,6 +1,7 @@
 var
   x: Int := 3
 
+program()
 begin
   case x of
     1, 2, 3: assert(true)
diff --git a/testsuite/runnable/case_record.elna b/testsuite/runnable/case_record.elna
index 4f65a5b..26436ea 100644
--- a/testsuite/runnable/case_record.elna
+++ b/testsuite/runnable/case_record.elna
@@ -7,6 +7,7 @@ type
 var
   r: R := R{a: 1, b: 2}
 
+program()
 begin
   case r of
     R{a: 0, b: 0}: assert(false)
diff --git a/testsuite/runnable/compile_time_array_access.elna b/testsuite/runnable/compile_time_array_access.elna
index 4d59215..b854635 100644
--- a/testsuite/runnable/compile_time_array_access.elna
+++ b/testsuite/runnable/compile_time_array_access.elna
@@ -2,6 +2,7 @@ var
   array: const [3]Int := [1, 2, 3]
   i: const Int := array[2]
 
+program()
 begin
   assert(i = 2)
 end.
diff --git a/testsuite/runnable/const_copy.elna b/testsuite/runnable/const_copy.elna
index 5982149..32cee67 100644
--- a/testsuite/runnable/const_copy.elna
+++ b/testsuite/runnable/const_copy.elna
@@ -7,6 +7,7 @@ begin
   assert(y = 5)
 return
 
+program()
 begin
   f()
 end.
diff --git a/testsuite/runnable/const_initialization.elna b/testsuite/runnable/const_initialization.elna
index 7f922ff..56a6697 100644
--- a/testsuite/runnable/const_initialization.elna
+++ b/testsuite/runnable/const_initialization.elna
@@ -5,6 +5,7 @@ begin
   assert(x = 5)
 return
 
+program()
 begin
   f()
 end.
diff --git a/testsuite/runnable/constant_string_initializer.elna b/testsuite/runnable/constant_string_initializer.elna
index 52ca429..8fd3b78 100644
--- a/testsuite/runnable/constant_string_initializer.elna
+++ b/testsuite/runnable/constant_string_initializer.elna
@@ -1,6 +1,7 @@
 var
   s: []const Word8 := "String value"
 
+program()
 begin
   assert(s = "String value")
 end.
diff --git a/testsuite/runnable/define_multiple_local_variables.elna b/testsuite/runnable/define_multiple_local_variables.elna
index 8e44da4..72f0874 100644
--- a/testsuite/runnable/define_multiple_local_variables.elna
+++ b/testsuite/runnable/define_multiple_local_variables.elna
@@ -3,6 +3,7 @@ var
   a, b: Int := 5
 return a = 5 & b = 5
 
+program()
 begin
   assert(f())
 end.
diff --git a/testsuite/runnable/exported_variable/sut.elna b/testsuite/runnable/exported_variable/sut.elna
index 52fb291..1fbc6ee 100644
--- a/testsuite/runnable/exported_variable/sut.elna
+++ b/testsuite/runnable/exported_variable/sut.elna
@@ -1,5 +1,6 @@
 import helper
 
+program()
 begin
   assert(Shared = 42)
 end.
diff --git a/testsuite/runnable/fixed_int_max.elna b/testsuite/runnable/fixed_int_max.elna
index 0564dd6..f00fd60 100644
--- a/testsuite/runnable/fixed_int_max.elna
+++ b/testsuite/runnable/fixed_int_max.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert(#max(Int8) = 127i8);
   assert(#max(Int16) = 32767i16);
diff --git a/testsuite/runnable/fixed_int_min.elna b/testsuite/runnable/fixed_int_min.elna
index de83d1a..fd6b110 100644
--- a/testsuite/runnable/fixed_int_min.elna
+++ b/testsuite/runnable/fixed_int_min.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert(#min(Int8) = -128i8);
   assert(#min(Int16) = -32768i16);
diff --git a/testsuite/runnable/fixed_word_max.elna b/testsuite/runnable/fixed_word_max.elna
index 76026a2..c657614 100644
--- a/testsuite/runnable/fixed_word_max.elna
+++ b/testsuite/runnable/fixed_word_max.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert(#max(Word8) = 255u8);
   assert(#max(Word16) = 65535u16);
diff --git a/testsuite/runnable/float_arithmetic.elna b/testsuite/runnable/float_arithmetic.elna
index 73072f2..f792b04 100644
--- a/testsuite/runnable/float_arithmetic.elna
+++ b/testsuite/runnable/float_arithmetic.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert(6.0 / 2.0 = 3.0);
   assert(5.0 / 2.0 = 2.5);
diff --git a/testsuite/runnable/for_each_array.elna b/testsuite/runnable/for_each_array.elna
index c6cba41..806a84b 100644
--- a/testsuite/runnable/for_each_array.elna
+++ b/testsuite/runnable/for_each_array.elna
@@ -3,6 +3,7 @@ var
   input: [4]Word := [2u, 4u, 6u, 8u]
   i: Word := 1u
 
+program()
 begin
   for element of input do
     actual[i] := element^ * 2u;
diff --git a/testsuite/runnable/for_each_slice.elna b/testsuite/runnable/for_each_slice.elna
index 5356bc8..ecd3cc3 100644
--- a/testsuite/runnable/for_each_slice.elna
+++ b/testsuite/runnable/for_each_slice.elna
@@ -4,6 +4,7 @@ var
   slice: []Word
   i: Word := 1u
 
+program()
 begin
   slice := input[1u to input.length];
 
diff --git a/testsuite/runnable/for_with.elna b/testsuite/runnable/for_with.elna
index 22ccb13..582a641 100644
--- a/testsuite/runnable/for_with.elna
+++ b/testsuite/runnable/for_with.elna
@@ -1,6 +1,7 @@
 var
   actual: [3]Word := [0u, 0u, 0u]
 
+program()
 begin
   for element of [1u, 2u, 3u] with i do
     actual[i] := i * element^
diff --git a/testsuite/runnable/generic_pointer_arithmetic.elna b/testsuite/runnable/generic_pointer_arithmetic.elna
index c737c7d..9aad7d6 100644
--- a/testsuite/runnable/generic_pointer_arithmetic.elna
+++ b/testsuite/runnable/generic_pointer_arithmetic.elna
@@ -4,6 +4,7 @@ var
   first: Pointer
   second: Pointer
 
+program()
 begin
   element := base.ptr;
   first := element;
diff --git a/testsuite/runnable/hexadecimal_literal.elna b/testsuite/runnable/hexadecimal_literal.elna
index 71fd2da..a168bd2 100644
--- a/testsuite/runnable/hexadecimal_literal.elna
+++ b/testsuite/runnable/hexadecimal_literal.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert(0xff = 255u);
   assert(0X0f = 15u)
diff --git a/testsuite/runnable/multi_module/sut.elna b/testsuite/runnable/multi_module/sut.elna
index fb26a26..666f82a 100644
--- a/testsuite/runnable/multi_module/sut.elna
+++ b/testsuite/runnable/multi_module/sut.elna
@@ -1,5 +1,6 @@
 import helper
 
+program()
 begin
   assert(multiply(3, 4) = 12)
 end.
diff --git a/testsuite/runnable/procedure_cast.elna b/testsuite/runnable/procedure_cast.elna
index ee97a6b..11e0e72 100644
--- a/testsuite/runnable/procedure_cast.elna
+++ b/testsuite/runnable/procedure_cast.elna
@@ -3,6 +3,7 @@ var cb: proc(x: ^Char) -> Int
 proc probe_int(x: ^Int) -> Int
 return 42
 
+program()
 begin
   cb := cast(probe_int: proc(x: ^Char) -> Int);
   assert(cb(nil) = 42)
diff --git a/testsuite/runnable/record_base_assignment.elna b/testsuite/runnable/record_base_assignment.elna
index 2a15d0f..81ee7cf 100644
--- a/testsuite/runnable/record_base_assignment.elna
+++ b/testsuite/runnable/record_base_assignment.elna
@@ -16,6 +16,7 @@ begin
   assert(r.x = 3u & r.y = 2u)
 return
 
+program()
 begin
   f()
 end.
diff --git a/testsuite/runnable/record_base_constructor.elna b/testsuite/runnable/record_base_constructor.elna
index 86da08a..1ca3214 100644
--- a/testsuite/runnable/record_base_constructor.elna
+++ b/testsuite/runnable/record_base_constructor.elna
@@ -12,6 +12,7 @@ type
 var
   g: Grandchild := Grandchild{a: 3, b: 5, c: 7}
 
+program()
 begin
   assert(g.a = 3);
   assert(g.b = 5);
diff --git a/testsuite/runnable/record_construction.elna b/testsuite/runnable/record_construction.elna
index 2bbc493..31fc21f 100644
--- a/testsuite/runnable/record_construction.elna
+++ b/testsuite/runnable/record_construction.elna
@@ -6,6 +6,7 @@ type
 var
   r: R := R{x: 1, y: 2}
 
+program()
 begin
   assert(r.x = 1 & r.y = 2)
 end.
diff --git a/testsuite/runnable/record_extension.elna b/testsuite/runnable/record_extension.elna
index 7d8dc61..b195759 100644
--- a/testsuite/runnable/record_extension.elna
+++ b/testsuite/runnable/record_extension.elna
@@ -10,6 +10,7 @@ var
   token_memory: ElnaLexerStringToken
   current_token: ^ElnaLexerToken
 
+program()
 begin
   current_token := @token_memory;
   cast(current_token: ^ElnaLexerStringToken)^.value := "Some string";
diff --git a/testsuite/runnable/record_layout.elna b/testsuite/runnable/record_layout.elna
index 180d7bc..b94f18a 100644
--- a/testsuite/runnable/record_layout.elna
+++ b/testsuite/runnable/record_layout.elna
@@ -50,6 +50,7 @@ begin
   assert(array_record_c_offset = 3u * int_size)
 return
 
+program()
 begin
   f()
 end.
diff --git a/testsuite/runnable/recursive_record.elna b/testsuite/runnable/recursive_record.elna
index 237eece..c940da9 100644
--- a/testsuite/runnable/recursive_record.elna
+++ b/testsuite/runnable/recursive_record.elna
@@ -27,6 +27,7 @@ begin
   end;
 return result
 
+program()
 begin
   first := malloc(#size(Node));
   second := malloc(#size(Node));
diff --git a/testsuite/runnable/repeat_loop.elna b/testsuite/runnable/repeat_loop.elna
index 71554f0..ea50884 100644
--- a/testsuite/runnable/repeat_loop.elna
+++ b/testsuite/runnable/repeat_loop.elna
@@ -2,6 +2,7 @@ var
   actual: [4]Word := [0u, 0u, 0u, 0u]
   i: Word := 0u
 
+program()
 begin
   repeat
     i := i + 1u;
diff --git a/testsuite/runnable/return_aggregate.elna b/testsuite/runnable/return_aggregate.elna
index fbc1a08..ad3ec65 100644
--- a/testsuite/runnable/return_aggregate.elna
+++ b/testsuite/runnable/return_aggregate.elna
@@ -7,6 +7,7 @@ type
 proc f() -> R
 return R{ a: 1, b: 2 }
 
+program()
 begin
   assert(f() = R{ a: 1, b: 2 })
 end.
diff --git a/testsuite/runnable/slice_array.elna b/testsuite/runnable/slice_array.elna
index 8baaff3..2b747ea 100644
--- a/testsuite/runnable/slice_array.elna
+++ b/testsuite/runnable/slice_array.elna
@@ -2,6 +2,7 @@ var
   array: [3]Int := [2, 4, 6]
   slice: []Int
 
+program()
 begin
   slice := array[1 to 3];
 
diff --git a/testsuite/runnable/slice_cast.elna b/testsuite/runnable/slice_cast.elna
index ca093db..d11f80a 100644
--- a/testsuite/runnable/slice_cast.elna
+++ b/testsuite/runnable/slice_cast.elna
@@ -1,6 +1,7 @@
 var
   ints: [4]Int32 := [1i32, 2i32, 3i32, 4i32]
 
+program()
 begin
   assert(cast(ints[1u to 4u]: []Int8).length = #size(Int32) * ints.length)
 end.
diff --git a/testsuite/runnable/slice_equality.elna b/testsuite/runnable/slice_equality.elna
index e34981a..08eb4f2 100644
--- a/testsuite/runnable/slice_equality.elna
+++ b/testsuite/runnable/slice_equality.elna
@@ -2,6 +2,7 @@ var
   lhs_payload, rhs_payload: [3]Int := [2, 4, 6]
   lhs, rhs: []Int
 
+program()
 begin
   lhs := lhs_payload[1 to 3];
   rhs := rhs_payload[1 to 3];
diff --git a/testsuite/runnable/slice_pointer.elna b/testsuite/runnable/slice_pointer.elna
index 1ab367e..6ebcec9 100644
--- a/testsuite/runnable/slice_pointer.elna
+++ b/testsuite/runnable/slice_pointer.elna
@@ -2,6 +2,7 @@ var
   array: [3]Int := [2, 4, 6]
   slice: []Int
 
+program()
 begin
   slice := array.ptr[1 to 3];
 
diff --git a/testsuite/runnable/slice_slice.elna b/testsuite/runnable/slice_slice.elna
index f5e0eba..459cf51 100644
--- a/testsuite/runnable/slice_slice.elna
+++ b/testsuite/runnable/slice_slice.elna
@@ -2,6 +2,7 @@ var
   array: [5]Int := [2, 4, 6, 8, 10]
   slice1, slice2: []Int
 
+program()
 begin
   slice1 := array[1 to array.length];
   slice2 := slice1[2 to 4];
diff --git a/testsuite/runnable/two_fields_same_type.elna b/testsuite/runnable/two_fields_same_type.elna
index 71dcbee..7d7292d 100644
--- a/testsuite/runnable/two_fields_same_type.elna
+++ b/testsuite/runnable/two_fields_same_type.elna
@@ -8,7 +8,7 @@ var
   r: R := R{x: 3, y: 2}
 return r.x + r.y
 
-
+program()
 begin
   assert(f() = 5)
 end.
diff --git a/testsuite/runnable/two_parameters_same_type.elna b/testsuite/runnable/two_parameters_same_type.elna
index 105a40c..41d688c 100644
--- a/testsuite/runnable/two_parameters_same_type.elna
+++ b/testsuite/runnable/two_parameters_same_type.elna
@@ -1,6 +1,7 @@
 proc f(x, y: Int) -> Int
 return x + y
 
+program()
 begin
   assert(f(2, 3) = 5)
 end.
diff --git a/testsuite/runnable/unary_plus.elna b/testsuite/runnable/unary_plus.elna
index bfd59d6..e4b3762 100644
--- a/testsuite/runnable/unary_plus.elna
+++ b/testsuite/runnable/unary_plus.elna
@@ -1,6 +1,7 @@
 proc f(x: Int) -> Int
 return +x
 
+program()
 begin
   assert(+3 = 3);
   assert(f(5) = 5);
diff --git a/testsuite/runnable/unicode_escape_character.elna b/testsuite/runnable/unicode_escape_character.elna
index d49910c..0cfd3e2 100644
--- a/testsuite/runnable/unicode_escape_character.elna
+++ b/testsuite/runnable/unicode_escape_character.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert(`\{U+E9}` = `é`);
   assert(`\{U+1F600}` = `😀`)
diff --git a/testsuite/runnable/unicode_escape_string.elna b/testsuite/runnable/unicode_escape_string.elna
index 5905eda..bec794a 100644
--- a/testsuite/runnable/unicode_escape_string.elna
+++ b/testsuite/runnable/unicode_escape_string.elna
@@ -1,3 +1,4 @@
+program()
 begin
   assert("caf\{U+E9}" = "café");
   assert("Hi \{U+1F600}!" = "Hi 😀!")