Add reg test for issue #322. N.B.! Not yet enabled

 - Enable this once we figure out which GCCs it's fixed on.

Author: zbeekman

CMakeLists.txt

@@ -748,6 +748,11 @@ if(opencoarrays_aware_compiler)
     add_caf_test(source-alloc-no-sync 8 source-alloc-sync)
   endif()
 
+  # Fixed on GCC 6 > 6.4, 7 > 7.3 and 8.x
+  if (FALSE) # FIXME!
+    add_caf_test(non-coarray-vector-indexed-lhs issue-322-non-coarray-vector-idx-lhs)
+  endif()
+
   # Open GCC 7 regressions
   if ((CAF_RUN_DEVELOPER_TESTS OR $ENV{OPENCOARRAYS_DEVELOPER}) OR
       (gfortran_compiler AND (

src/tests/regression/reported/CMakeLists.txt

@@ -9,6 +9,7 @@ caf_compile_executable(issue-488-multi-dim-cobounds issue-488-multi-dim-cobounds
 caf_compile_executable(issue-493-coindex-slice issue-493-coindex-slice.f90)
 caf_compile_executable(issue-503-multidim-array-broadcast issue-503-multidim-array-broadcast.f90)
 caf_compile_executable(issue-503-non-contig-red-ndarray issue-503-non-contig-red-ndarray.f90)
+caf_compile_executable(issue-322-non-coarray-vector-idx-lhs issue-322-non-coarray-vector-idx-lhs.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-322-non-coarray-vector-idx-lhs.f90

@@ -0,0 +1,32 @@
+program mod_vecsub_01
+  !! Issue #322 reported by @reinh-bader
+  !! https://github.com/sourceryinstitute/OpenCoarrays/issues/322
+  !! Related to other vector indexing issues
+  implicit none
+  integer, parameter :: ndim = 5, vdim = 2
+  real :: vec(ndim), res(ndim)[*]
+  integer :: idx(vdim)
+  integer :: i, me
+  logical :: ok[*]
+
+  res = [ (real(i), i=1, ndim) ]
+  vec = 0.0
+  idx = [ ndim, 1 ]
+  ok = .true.
+  sync all
+  me = this_image()
+  vec(idx) = res(1:2)[1]
+  if (vec(1) /= 2.0 .or. vec(5) /= 1.0) then
+    critical
+      ok[1] = .false.
+      write(*, *) 'FAIL on image ',me,vec(idx)
+    end critical
+  end if
+  if (me == 1) then
+     if (ok) then
+       write(*, *) 'Test passed.'
+     else
+        error stop 1
+     end if
+  end if
+end program