Implement program entry point

13 files changed, 13 insertions, 5 deletions

diff --git a/testsuite/compilable/assign_record_to_base.elna b/testsuite/compilable/assign_record_to_base.elna
index fb28e7b..7601d06 100644
--- a/testsuite/compilable/assign_record_to_base.elna
+++ b/testsuite/compilable/assign_record_to_base.elna
@@ -10,6 +10,7 @@ var
   x: ^B := nil
   y: ^R := nil
 
+program()
 begin
   x := y;
 end.
diff --git a/testsuite/compilable/const_alias.elna b/testsuite/compilable/const_alias.elna
index e17c55f..3a6b365 100644
--- a/testsuite/compilable/const_alias.elna
+++ b/testsuite/compilable/const_alias.elna
@@ -6,5 +6,4 @@ var
   x: CCI := 8
   y: const CI := 9
 
-begin
 end.
diff --git a/testsuite/compilable/const_element_array.elna b/testsuite/compilable/const_element_array.elna
index a812d23..2d68ff5 100644
--- a/testsuite/compilable/const_element_array.elna
+++ b/testsuite/compilable/const_element_array.elna
@@ -5,5 +5,4 @@ var
   a: [3]CI := [1, 2, 3]
   b: [3]CI
 
-begin
 end.
diff --git a/testsuite/compilable/const_extern.elna b/testsuite/compilable/const_extern.elna
index 8df801e..9e8fbb0 100644
--- a/testsuite/compilable/const_extern.elna
+++ b/testsuite/compilable/const_extern.elna
@@ -1,5 +1,4 @@
 var
   errno_like: const Int := extern
 
-begin
 end.
diff --git a/testsuite/compilable/const_negation.elna b/testsuite/compilable/const_negation.elna
index a62cc1e..cb76e58 100644
--- a/testsuite/compilable/const_negation.elna
+++ b/testsuite/compilable/const_negation.elna
@@ -2,6 +2,7 @@ var
   x: const Int := -5
   y: const Int := -x
 
+program()
 begin
   assert(x = -5);
   assert(y = 5);
diff --git a/testsuite/compilable/const_var_chain.elna b/testsuite/compilable/const_var_chain.elna
index a6db8c8..5a3623f 100644
--- a/testsuite/compilable/const_var_chain.elna
+++ b/testsuite/compilable/const_var_chain.elna
@@ -2,6 +2,7 @@ var
   x: const Int := 42
   y: Int := x
 
+program()
 begin
   assert(y = 42)
 end.
diff --git a/testsuite/compilable/empty_proc_type_expression.elna b/testsuite/compilable/empty_proc_type_expression.elna
index ad959f3..7738cae 100644
--- a/testsuite/compilable/empty_proc_type_expression.elna
+++ b/testsuite/compilable/empty_proc_type_expression.elna
@@ -1,2 +1,4 @@
-type P = proc()
+type
+  P = proc()
+
 end.
diff --git a/testsuite/compilable/opaque_type.elna b/testsuite/compilable/opaque_type.elna
index bdbf0d6..fdb2928 100644
--- a/testsuite/compilable/opaque_type.elna
+++ b/testsuite/compilable/opaque_type.elna
@@ -9,6 +9,7 @@ var
 proc take(h: ^Handle) -> ^Handle
 return h
 
+program()
 begin
   alias := take(handle)
 end.
diff --git a/testsuite/compilable/pointer_cast.elna b/testsuite/compilable/pointer_cast.elna
index ab4b071..3807d69 100644
--- a/testsuite/compilable/pointer_cast.elna
+++ b/testsuite/compilable/pointer_cast.elna
@@ -2,7 +2,8 @@ var
   c: ^Char := nil
   p: Pointer := nil
 
+program()
 begin
   p := c;
-  c := p;
+  c := p
 end.
diff --git a/testsuite/compilable/pointer_const_conversion.elna b/testsuite/compilable/pointer_const_conversion.elna
index fd8e097..d2328ae 100644
--- a/testsuite/compilable/pointer_const_conversion.elna
+++ b/testsuite/compilable/pointer_const_conversion.elna
@@ -2,6 +2,7 @@ var
   x: Int
   p: ^const Int
 
+program()
 begin
   p := @x
 end.
diff --git a/testsuite/compilable/self-referencing-record.elna b/testsuite/compilable/self-referencing-record.elna
index cc98f86..311f148 100644
--- a/testsuite/compilable/self-referencing-record.elna
+++ b/testsuite/compilable/self-referencing-record.elna
@@ -2,4 +2,5 @@ type
   R = record
     field: ^R
   end
+
 end.
diff --git a/testsuite/compilable/take_const_address.elna b/testsuite/compilable/take_const_address.elna
index f8c9e5c..71c8e0b 100644
--- a/testsuite/compilable/take_const_address.elna
+++ b/testsuite/compilable/take_const_address.elna
@@ -2,6 +2,7 @@ var
   x: ^const Int
   y: const Int := 1
 
+program()
 begin
   x := @y
 end.
diff --git a/testsuite/compilable/traits_size.elna b/testsuite/compilable/traits_size.elna
index 523045f..7ee46f1 100644
--- a/testsuite/compilable/traits_size.elna
+++ b/testsuite/compilable/traits_size.elna
@@ -5,6 +5,7 @@ var
   as: Int := cast(#size([10]Int): Int)
   p: Int := cast(#size(Pointer): Int)
 
+program()
 begin
   assert(s > 0);
   assert(as = 10 * cast(#size(Int): Int));