tests: Fix fortran tests

18 files changed, 24 insertions, 8 deletions

diff --git a/test cases/fortran/1 basic/simple.f90 b/test cases/fortran/1 basic/simple.f90
index 53aeb4d..2160d56 100644
--- a/test cases/fortran/1 basic/simple.f90
+++ b/test cases/fortran/1 basic/simple.f90
@@ -1,2 +1,3 @@
+program main
 print *, "Fortran compilation is working."
 end program
diff --git a/test cases/fortran/10 find library/main.f90 b/test cases/fortran/10 find library/main.f90
index 1f5c039..e885d30 100644
--- a/test cases/fortran/10 find library/main.f90
+++ b/test cases/fortran/10 find library/main.f90
@@ -1,4 +1,4 @@
-
+program main
 use iso_fortran_env, only: stderr=>error_unit
 use iso_c_binding, only: c_int, c_char, c_null_char, c_ptr
 use gzip, only: gzopen, gzwrite, gzclose
diff --git a/test cases/fortran/12 submodule/parent.f90 b/test cases/fortran/12 submodule/parent.f90
index 77c8fb4..efc7cf6 100644
--- a/test cases/fortran/12 submodule/parent.f90
+++ b/test cases/fortran/12 submodule/parent.f90
@@ -13,6 +13,7 @@ end interface
 
 end module parent
 
+program main
 
 use parent
 
diff --git a/test cases/fortran/13 coarray/main.f90 b/test cases/fortran/13 coarray/main.f90
index be60552..eee03ea 100644
--- a/test cases/fortran/13 coarray/main.f90
+++ b/test cases/fortran/13 coarray/main.f90
@@ -1,3 +1,4 @@
+program main
 implicit none
 
 if (this_image() == 1)  print *, 'number of Fortran coarray images:', num_images()
diff --git a/test cases/fortran/14 fortran links c/f_call_c.f90 b/test cases/fortran/14 fortran links c/f_call_c.f90
index af1e79c..b3f70a7 100644
--- a/test cases/fortran/14 fortran links c/f_call_c.f90
+++ b/test cases/fortran/14 fortran links c/f_call_c.f90
@@ -1,3 +1,4 @@
+program main
 implicit none
 
 interface
diff --git a/test cases/fortran/16 openmp/main.f90 b/test cases/fortran/16 openmp/main.f90
index 8ab38d3..26b792f 100644
--- a/test cases/fortran/16 openmp/main.f90
+++ b/test cases/fortran/16 openmp/main.f90
@@ -1,3 +1,4 @@
+program main
 use, intrinsic :: iso_fortran_env, only: stderr=>error_unit
 use omp_lib, only: omp_get_max_threads
 implicit none
diff --git a/test cases/fortran/18 first_arg/main.f90 b/test cases/fortran/18 first_arg/main.f90
index d0097a2..6ea28b1 100644
--- a/test cases/fortran/18 first_arg/main.f90
+++ b/test cases/fortran/18 first_arg/main.f90
@@ -1,2 +1,3 @@
+program main
 i = 3
 end program
diff --git a/test cases/fortran/19 fortran_std/legacy.f b/test cases/fortran/19 fortran_std/legacy.f
index 339064d..014bcc1 100644
--- a/test cases/fortran/19 fortran_std/legacy.f
+++ b/test cases/fortran/19 fortran_std/legacy.f
@@ -1,7 +1,8 @@
+      program main
     ! non-integer loop indices are deleted in Fortran 95 standard
       real a
 
       do 10 a=0,0.5,0.1
 10    continue
 
-      end program
\ No newline at end of file
+      end program
diff --git a/test cases/fortran/19 fortran_std/std2003.f90 b/test cases/fortran/19 fortran_std/std2003.f90
index 08d2f50..0382192 100644
--- a/test cases/fortran/19 fortran_std/std2003.f90
+++ b/test cases/fortran/19 fortran_std/std2003.f90
@@ -1,3 +1,4 @@
+program main
 use, intrinsic :: iso_fortran_env, only : error_unit
 implicit none
 
@@ -33,4 +34,4 @@ end select
 
 end subroutine timestwo
 
-end program
\ No newline at end of file
+end program
diff --git a/test cases/fortran/19 fortran_std/std2008.f90 b/test cases/fortran/19 fortran_std/std2008.f90
index e7887ae..750173e 100644
--- a/test cases/fortran/19 fortran_std/std2008.f90
+++ b/test cases/fortran/19 fortran_std/std2008.f90
@@ -1,3 +1,4 @@
+program main
 use, intrinsic :: iso_fortran_env, only : error_unit, sp=>real32, dp=>real64
 implicit none
 
@@ -29,4 +30,4 @@ end select
 
 end subroutine timestwo
 
-end program
\ No newline at end of file
+end program
diff --git a/test cases/fortran/19 fortran_std/std2018.f90 b/test cases/fortran/19 fortran_std/std2018.f90
index 9a326b1..34fad50 100644
--- a/test cases/fortran/19 fortran_std/std2018.f90
+++ b/test cases/fortran/19 fortran_std/std2018.f90
@@ -1,3 +1,4 @@
+program main
 use, intrinsic :: iso_fortran_env, only : error_unit, sp=>real32, dp=>real64
 implicit none
 
@@ -31,4 +32,4 @@ end select
 
 end subroutine timestwo
 
-end program
\ No newline at end of file
+end program
diff --git a/test cases/fortran/19 fortran_std/std95.f90 b/test cases/fortran/19 fortran_std/std95.f90
index 8518df1..2837da8 100644
--- a/test cases/fortran/19 fortran_std/std95.f90
+++ b/test cases/fortran/19 fortran_std/std95.f90
@@ -1,3 +1,4 @@
+program main
 implicit none
 
 integer :: i, j
@@ -10,4 +11,4 @@ forall (i=1:N, j=1:N)
   A(i,j) = 1
 end forall
 
-end program
\ No newline at end of file
+end program
diff --git a/test cases/fortran/2 modules/prog.f90 b/test cases/fortran/2 modules/prog.f90
index 34f25bf..ef72d11 100644
--- a/test cases/fortran/2 modules/prog.f90
+++ b/test cases/fortran/2 modules/prog.f90
@@ -1,3 +1,4 @@
+program main
 use circle, only: pi
 use line, only: length
 implicit none
diff --git a/test cases/fortran/20 buildtype/main.f90 b/test cases/fortran/20 buildtype/main.f90
index 1e16cbc..ecc7d61 100644
--- a/test cases/fortran/20 buildtype/main.f90
+++ b/test cases/fortran/20 buildtype/main.f90
@@ -1 +1,2 @@
+program main
 end program
diff --git a/test cases/fortran/21 install static/main.f90 b/test cases/fortran/21 install static/main.f90
index c83a6a0..d0c67fe 100644
--- a/test cases/fortran/21 install static/main.f90
+++ b/test cases/fortran/21 install static/main.f90
@@ -1,4 +1,5 @@
+program main
 use main_lib
 implicit none
 call main_hello()
-end program
\ No newline at end of file
+end program
diff --git a/test cases/fortran/5 static/main.f90 b/test cases/fortran/5 static/main.f90
index 6d878cb..4db2861 100644
--- a/test cases/fortran/5 static/main.f90
+++ b/test cases/fortran/5 static/main.f90
@@ -1,4 +1,4 @@
-
+program main
 use static_hello
 implicit none
 
diff --git a/test cases/fortran/6 dynamic/main.f90 b/test cases/fortran/6 dynamic/main.f90
index fc48bcb..ba2e2d2 100644
--- a/test cases/fortran/6 dynamic/main.f90
+++ b/test cases/fortran/6 dynamic/main.f90
@@ -1,3 +1,4 @@
+program main
 use dynamic, only: hello
 implicit none
 
diff --git a/test cases/fortran/8 module names/test.f90 b/test cases/fortran/8 module names/test.f90
index 756a163..60ff16e 100644
--- a/test cases/fortran/8 module names/test.f90
+++ b/test cases/fortran/8 module names/test.f90
@@ -1,3 +1,4 @@
+program main
 use mymod1
 use MyMod2  ! test inline comment