Put module assert in independent file

Makefile.am

@@ -495,6 +495,7 @@ libelpatest@SUFFIX@_la_SOURCES = \
 	test/shared/setup_mpi.F90 \
 	test/shared/blacs_infrastructure.F90 \
 	test/shared/prepare_matrix.F90 \
+	test/shared/mod_assert.F90 \
 	test/shared/prepare_matrix_template.X90 \
 	test/shared/mod_output_types.F90 \
 	test/shared/mod_from_c.F90 \

test/Fortran/test_new_interface_complex.F90

@@ -46,22 +46,6 @@
 #define stringify(x) stringify_(x)
 #define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
 
-module assert
-  implicit none
-  contains
-    subroutine x_assert(condition, condition_string, file, line)
-      use elpa_utilities, only : error_unit
-      logical, intent(in) :: condition
-      character(len=*), intent(in) :: condition_string
-      character(len=*), intent(in) :: file
-      integer, intent(in) :: line
-
-      if (.not. condition) then
-        write(error_unit,'(a,i0)') "Assertion failed:" // condition_string // " at " // file // ":", line
-      end if
-    end subroutine
-end module
-
 program test_interface
    use precision
    use assert

test/Fortran/test_new_interface_complex_single.F90

@@ -46,22 +46,6 @@
 #define stringify(x) stringify_(x)
 #define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
 
-module assert
-  implicit none
-  contains
-    subroutine x_assert(condition, condition_string, file, line)
-      use elpa_utilities, only : error_unit
-      logical, intent(in) :: condition
-      character(len=*), intent(in) :: condition_string
-      character(len=*), intent(in) :: file
-      integer, intent(in) :: line
-
-      if (.not. condition) then
-        write(error_unit,'(a,i0)') "Assertion failed:" // condition_string // " at " // file // ":", line
-      end if
-    end subroutine
-end module
-
 program test_interface
    use precision
    use assert

test/Fortran/test_new_interface_real.F90

@@ -46,22 +46,6 @@
 #define stringify(x) stringify_(x)
 #define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
 
-module assert
-  implicit none
-  contains
-    subroutine x_assert(condition, condition_string, file, line)
-      use elpa_utilities, only : error_unit
-      logical, intent(in) :: condition
-      character(len=*), intent(in) :: condition_string
-      character(len=*), intent(in) :: file
-      integer, intent(in) :: line
-
-      if (.not. condition) then
-        write(error_unit,'(a,i0)') "Assertion failed:" // condition_string // " at " // file // ":", line
-      end if
-    end subroutine
-end module
-
 program test_interface
    use precision
    use assert

test/Fortran/test_new_interface_real_single.F90

@@ -46,22 +46,6 @@
 #define stringify(x) stringify_(x)
 #define assert(x) call x_assert(x, stringify(x), __FILE__, __LINE__)
 
-module assert
-  implicit none
-  contains
-    subroutine x_assert(condition, condition_string, file, line)
-      use elpa_utilities, only : error_unit
-      logical, intent(in) :: condition
-      character(len=*), intent(in) :: condition_string
-      character(len=*), intent(in) :: file
-      integer, intent(in) :: line
-
-      if (.not. condition) then
-        write(error_unit,'(a,i0)') "Assertion failed:" // condition_string // " at " // file // ":", line
-      end if
-    end subroutine
-end module
-
 program test_interface
    use precision
    use assert

test/shared/mod_assert.F90

+
+module assert
+  implicit none
+  contains
+    subroutine x_assert(condition, condition_string, file, line)
+      use elpa_utilities, only : error_unit
+      logical, intent(in) :: condition
+      character(len=*), intent(in) :: condition_string
+      character(len=*), intent(in) :: file
+      integer, intent(in) :: line
+
+      if (.not. condition) then
+        write(error_unit,'(a,i0)') "Assertion failed:" // condition_string // " at " // file // ":", line
+      end if
+    end subroutine
+end module
+
+