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 53aeb4d54..2160d561f 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 1f5c039e6..e885d30f5 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 77c8fb4f4..efc7cf6fc 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 be60552a7..eee03ea03 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 af1e79c82..b3f70a7ca 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 8ab38d3a5..26b792fe8 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 d0097a2ab..6ea28b1b5 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 339064d3c..014bcc1d0 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 08d2f507f..0382192d8 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 e7887aee1..750173e1b 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 9a326b1ad..34fad50bf 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 8518df1a5..2837da86a 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 34f25bfbb..ef72d11a8 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 1e16cbc85..ecc7d618c 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 c83a6a05b..d0c67fe8e 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 6d878cb47..4db2861ee 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 fc48bcb15..ba2e2d2fc 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 756a163e3..60ff16e90 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