GCC 7/8 bug workaround: short (sub)module names

Author: Damian Rouson

src/tests/unit/teams/get-communicator.f90

@@ -30,6 +30,7 @@
 program main
   !! summary: Test get_commiunicator function, an OpenCoarrays-specific language extension
   use opencoarrays, only : get_communicator
+  use oc_assertions_interface, only : assert
 
   implicit none
 
@@ -99,16 +100,4 @@ subroutine mpi_matches_caf(comm)
 
   end subroutine
 
-  elemental subroutine assert(assertion,description)
-    !! TODO: move this to a common place for all tests to use
-    logical, intent(in) :: assertion
-    character(len=*), intent(in) :: description
-    integer, parameter :: max_digits=12
-    character(len=max_digits) :: image_number
-    if (.not.assertion) then
-      write(image_number,*) this_image()
-      error stop "Assertion '" // description // "' failed on image " // trim(image_number)
-    end if
-  end subroutine
-
 end program

src/tests/unit/teams/team-number.f90

@@ -31,7 +31,7 @@ program main
   !! summary: Test team_number intrinsic function
   use iso_fortran_env, only : team_type
   use iso_c_binding, only : c_loc
-  use opencoarrays_assertions_interface, only : assert
+  use oc_assertions_interface, only : assert
 
   implicit none
 

src/tests/unit/teams/teams_subset.f90

@@ -3,7 +3,7 @@ program teams_subset
   !!
   !! Regression test for prior potential deadlock in change team/end team
   use iso_fortran_env, only : team_type
-  use opencoarrays_assertions_interface, only : assert
+  use oc_assertions_interface, only : assert
   implicit none
 
   type(team_type) team

src/tests/utilities/CMakeLists.txt

@@ -33,10 +33,10 @@ endif()
 
 add_library( oc_test_interfaces OBJECT
   opencoarrays_object_interface.f90
-  opencoarrays_assertions_interface.F90
+  oc_assertions_interface.F90
   )
 add_library( opencoarrays_test_utilities
-  opencoarrays_assertions_implementation.F90
+  oc_assertions_implementation.F90
   $<TARGET_OBJECTS:oc_test_interfaces>
   )
 set_target_properties(opencoarrays_test_utilities

src/tests/utilities/opencoarrays_assertions_implementation.F90 renamed to src/tests/utilities/oc_assertions_implementation.F90

@@ -1,4 +1,4 @@
-submodule(opencoarrays_assertions_interface) opencoarrays_assertions_implementation
+submodule(oc_assertions_interface) oc_assertions_implementation
   !! Define the assert procedure
 
   implicit none
@@ -67,4 +67,4 @@ pure subroutine set(msg)
 
   end procedure
 
-end submodule opencoarrays_assertions_implementation
+end submodule oc_assertions_implementation

src/tests/utilities/opencoarrays_assertions_interface.F90 renamed to src/tests/utilities/oc_assertions_interface.F90

@@ -1,7 +1,7 @@
 #ifndef USE_ASSERTIONS
 # define USE_ASSERTIONS .false.
 #endif
-module opencoarrays_assertions_interface
+module oc_assertions_interface
   !! author: Damian Rouson
   !!
   !! Utility for runtime checking of logical assertions.
@@ -61,4 +61,4 @@ module subroutine assert(assertion,description,diagnostic_data,success,error_mes
         !! Optional informational message allocated only if assertion==.false. .and. present(success)
     end subroutine
   end interface
-end module opencoarrays_assertions_interface
+end module oc_assertions_interface