Build fixes:

Arithmetic overflow gcc-7 on test
Build failure with gcc-7

Runtim failure with gcc-9 on debug output

Author: neok-m4700

src/mpi/mpi_caf.c

@@ -5115,7 +5115,6 @@ send_for_ref(caf_reference_t *ref, size_t *i, size_t src_index,
   gfc_max_dim_descriptor_t dst_desc_data;
   caf_ref_type_t ref_type = ref->type;
   caf_array_ref_t array_ref_src = ref->u.a.mode[src_dim];
-  caf_array_ref_t array_ref_dst = ref->u.a.mode[dst_dim];
   int ierr;
 
   if (unlikely(ref == NULL))
@@ -5133,10 +5132,8 @@ send_for_ref(caf_reference_t *ref, size_t *i, size_t src_index,
   if (ref->next == NULL)
   {
     size_t src_size = GFC_DESCRIPTOR_SIZE(src);
-    dprint("[next == NULL]: src_size = %zd, ref_type = %s, "
-           "array_ref_src = %s\n",
-           src_size, caf_ref_type_str[ref_type],
-           caf_array_ref_str[array_ref_src]);
+    dprint("[next == NULL]: src_size = %zd, ref_type = %s\n",
+           src_size, caf_ref_type_str[ref_type]);
 
     switch (ref_type)
     {
@@ -5225,10 +5222,15 @@ send_for_ref(caf_reference_t *ref, size_t *i, size_t src_index,
         caf_runtime_error(unreachable);
     }
   }
+  caf_array_ref_t array_ref_dst = ref->u.a.mode[dst_dim];
 
-  dprint("image_index = %d, num = %zd, "
-         "src_dim = %zd, dst_dim = %zd, ref_type = %s\n",
-         image_index, num, src_dim, dst_dim, caf_ref_type_str[ref_type]);
+#if 0
+  dprint("image_index = %d, num = %zd, src_dim = %zd, dst_dim = %zd, "
+         "ref_type = %s, array_ref_src = %s\n",
+         image_index, num, src_dim, dst_dim,
+         caf_ref_type_str[ref_type],
+         caf_array_ref_str[array_ref_src]);
+#endif
 
   switch (ref_type)
   {

src/tests/regression/reported/issue-552-send_by_ref-singleton.f90

@@ -30,7 +30,7 @@ program main
    co % c(1, :, :) = co % a(1, :, :)[remote] ! getter
 
    sync all
-   co % e(1, :, :) = dble(1111111111111111_8 * me) / 10**12
+   co % e(1, :, :) = dble(111111111111111_8 * me) / 10**8
    co % a(1, :, :) = co % e(1, :, :)
 
    sync all
@@ -67,7 +67,6 @@ program main
    sync all
 
    fail = any(abs(co % b(1, :, :) - co % d(1, :, :)) > epsilon(0.))
-   ! fail = .false. ! <== FIXME: this test is still failing, comment when bug in put_data is found !
 
    if (fail) then
       write(*, *) 'Test failed!'