End module with end module (#51)

GridTools · Aug 25, 2020 · ab4478e · ab4478e
1 parent 5a83fdf
commit ab4478e
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
diff --git a/src/cpp_bindgen/generator.cpp b/src/cpp_bindgen/generator.cpp
@@ -162,6 +162,6 @@ namespace cpp_bindgen {
         strm << get_fortran_generics();
         strm << "contains\n";
         strm << _impl::get_entities<_impl::fortran_wrapper_traits>();
-        strm << "end\n";
+        strm << "end module\n";
     }
 } // namespace cpp_bindgen
diff --git a/tests/regression/array/bindgen_regression_array.f90 b/tests/regression/array/bindgen_regression_array.f90
@@ -26,4 +26,4 @@ subroutine fill_array(arg0)
 
       call fill_array_impl(descriptor0)
     end subroutine
-end
+end module
diff --git a/tests/regression/array/bindgen_regression_array_cu.f90 b/tests/regression/array/bindgen_regression_array_cu.f90
@@ -49,4 +49,4 @@ subroutine fill_gpu_array(arg0)
 
       call fill_gpu_array_impl(descriptor0)
     end subroutine
-end
+end module
diff --git a/tests/regression/simple/bindgen_regression_simple.f90 b/tests/regression/simple/bindgen_regression_simple.f90
@@ -11,4 +11,4 @@ subroutine print_number_from_cpp(arg0) bind(c)
 
   end interface
 contains
-end
+end module
diff --git a/tests/unit_tests/test_export.cpp b/tests/unit_tests/test_export.cpp
@@ -233,7 +233,7 @@ contains
 
       call test_cpp_bindgen_and_wrapper_compatible_type_b_impl(arg0, descriptor1)
     end subroutine
-end
+end module
 )?";
 
     TEST(export, fortran_interface) {

diff --git a/tests/unit_tests/test_generator.cpp b/tests/unit_tests/test_generator.cpp
@@ -98,7 +98,7 @@ contains
 
       call qux_impl(arg0, descriptor1)
     end subroutine
-end
+end module
 )?";
 
         TEST(generator, fortran_interface) {