Added logic to work around #243 for GCC<7

 Additional clarifying comments added

Author: zbeekman

src/tests/regression/reported/CMakeLists.txt

@@ -16,8 +16,8 @@ target_link_libraries(convert-before-put OpenCoarrays)
 add_executable(event-post issue-293-silent-event-failure.F90)
 target_link_libraries(event-post OpenCoarrays)
 
-add_executable(issue-422-send issue-422-send.f90)
+add_executable(issue-422-send issue-422-send.F90)
 target_link_libraries(issue-422-send OpenCoarrays)
 
-add_executable(issue-422-send-get issue-422-send-get.f90)
+add_executable(issue-422-send-get issue-422-send-get.F90)
 target_link_libraries(issue-422-send-get OpenCoarrays)

src/tests/regression/reported/issue-422-send-get.f90 renamed to src/tests/regression/reported/issue-422-send-get.F90

@@ -46,19 +46,25 @@ program main
 
   enum, bind(C)
     enumerator :: recipient=1, provider, getter_putter
+    !! provider=2, getter_putter=3
   end enum
 
-  integer, parameter :: bar_size=2
+  integer, parameter :: bar_size=2, required_images=3
 
-  associate( me=>this_image(), N_images=>num_images(), required_images=>maxval([recipient,provider,getter_putter]) )
+  associate( me=>this_image(), N_images=>num_images() )
 
     verify_num_images: if (N_images<required_images) then
       write(error_unit,*)  "issue-422-send-get.f90 requires at least ",required_images," images"
       error stop
     end if verify_num_images
 
     allocate(foobar%bar(bar_size)[*],source=me)
-      !! Assign each image's identifier to each element of foobar%bar
+    !! Assign each image's identifier to each element of foobar%bar
+#ifndef GCC_GE_7
+    sync all
+      !! Issue #243 not backported to GCC < 7: implicit sync happens
+      !! after allocataion but before assignment
+#endif
 
     get_put_component: if (me==getter_putter) then
       foobar%bar(:)[recipient] =  foobar%bar(:)[provider]

src/tests/regression/reported/issue-422-send.f90 renamed to src/tests/regression/reported/issue-422-send.F90

@@ -46,12 +46,13 @@ program main
 
   enum, bind(C)
     enumerator :: recipient=1, provider
+    !! provider=2
   end enum
 
-  integer, parameter :: message(*)=[3,4]
+  integer, parameter :: message(*)=[3,4], required_images=2
     !! Data for provider image to put on recipient image
 
-  associate( me=>this_image(), N_images=>num_images(), required_images=>maxval([recipient,provider]) )
+  associate( me=>this_image(), N_images=>num_images() )
 
     verify_num_images: if (N_images<required_images) then
       write(error_unit,*)  "issue-422-send.f90 requires at least ",required_images," images"
@@ -60,6 +61,11 @@ program main
 
     allocate(foobar%bar(size(message))[*],source=me)
       !! Assign each image's identifier to each element of foobar%bar
+#ifndef GCC_GE_7
+    sync all
+      !! Fix to #243 has not been backported to GCC < 7. Implicit sync
+      !! happens after allocation but before sourced assignment
+#endif
 
     get_put_component: if (me==provider) then
       foobar%bar(:)[recipient] =  message