Add testcase for issue 700.

Author: vehre

CMakeLists.txt

@@ -887,6 +887,8 @@ if(opencoarrays_aware_compiler)
     add_caf_test(issue-515-mimic-mpi-gatherv 2 issue-515-mimic-mpi-gatherv)
   endif()
 
+  add_caf_test(issue-700-allow-multiple-scalar-dim-array-gets 2 issue-700-allow-multiple-scalar-dim-array-gets)
+
   # IMAGE FAIL tests
   if(NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 7.0.0)
     if(CAF_ENABLE_FAILED_IMAGES)

src/tests/regression/reported/CMakeLists.txt

@@ -12,6 +12,7 @@ caf_compile_executable(issue-503-non-contig-red-ndarray issue-503-non-contig-red
 caf_compile_executable(issue-322-non-coarray-vector-idx-lhs issue-322-non-coarray-vector-idx-lhs.f90)
 caf_compile_executable(issue-552-send_by_ref-singleton issue-552-send_by_ref-singleton.f90)
 caf_compile_executable(issue-511-incorrect-shape issue-511-incorrect-shape.f90)
+caf_compile_executable(issue-700-allow-multiple-scalar-dim-array-gets issue-700-allow-multiple-scalar-dim-array-gets.f90)
 if (gfortran_compiler AND (NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 7.0.0))
   caf_compile_executable(issue-515-mimic-mpi-gatherv issue-515-mimic-mpi-gatherv.f90)
 endif()

src/tests/regression/reported/issue-700-allow-multiple-scalar-dim-array-gets.f90

@@ -0,0 +1,37 @@
+  implicit none
+
+  type package
+    integer, allocatable :: surface_fluxes(:)
+  end type
+
+  type outbox
+    type(package), allocatable :: block_surfaces(:)
+  end type
+
+  type(outbox), save :: halo[*]
+
+  integer, parameter :: source_image = 1
+  integer, parameter :: message(1)=[99]
+
+  associate (me => this_image())
+    if (me == source_image) then
+      allocate(halo%block_surfaces(1))
+      allocate(halo%block_surfaces(1)%surface_fluxes, source = message)
+    end if
+
+    sync all
+
+    if (me /= source_image) then
+      allocate(halo%block_surfaces(1))
+      allocate(halo%block_surfaces(1)%surface_fluxes, mold = halo[source_image]%block_surfaces(1)%surface_fluxes)
+      halo%block_surfaces(1)%surface_fluxes(1) = halo[source_image]%block_surfaces(1)%surface_fluxes(1)
+
+      if (me == source_image + 1) then
+        if (halo%block_surfaces(1)%surface_fluxes(1) == 99) then
+          write(*,*) 'Test passed.'
+        end if
+      end if
+    end if
+
+  end associate
+end