Add testcase for issue #762.

Author: vehre

CMakeLists.txt

@@ -925,6 +925,7 @@ if(opencoarrays_aware_compiler)
   endif()
 
   add_caf_test(issue-700-allow-multiple-scalar-dim-array-gets 2 issue-700-allow-multiple-scalar-dim-array-gets)
+  add_caf_test(issue-762-mpi-crashing-on-exit 2 issue-762-mpi-crashing-on-exit)
 
   # IMAGE FAIL tests
   if(NOT CMAKE_Fortran_COMPILER_VERSION VERSION_LESS 7.0.0)

src/tests/regression/reported/CMakeLists.txt

@@ -16,3 +16,4 @@ caf_compile_executable(issue-700-allow-multiple-scalar-dim-array-gets issue-700-
 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()
+caf_compile_executable(issue-762-mpi-crashing-on-exit issue-762-mpi-crashing-on-exit.f90)

src/tests/regression/reported/issue-762-mpi-crashing-on-exit.f90

@@ -0,0 +1,13 @@
+program hello_coarrays
+  implicit none
+  type :: array_type
+    integer, allocatable :: values(:)
+  end type
+  type(array_type) :: array[*]
+  allocate(array%values(2), source=0)
+  array%values = this_image()
+  if (all(array%values(:) .EQ. this_image())) then
+    print *,"Test passed."
+  end if
+end program
+