Add testcase for static array access.

Author: vehre

CMakeLists.txt

@@ -795,6 +795,7 @@ if(opencoarrays_aware_compiler)
   add_caf_test(get_with_offset_1d 2 get_with_offset_1d)
   add_caf_test(whole_get_array 2 whole_get_array)
   add_caf_test(strided_get 2 strided_get)
+  add_caf_test(get_static_array 2 get_static_array)
 
   # Pure send tests
   add_caf_test(send_array 2 send_array)

src/tests/unit/send-get/CMakeLists.txt

@@ -13,6 +13,7 @@ caf_compile_executable(strided_get strided_get.f90)
 caf_compile_executable(get_with_vector_index get_with_vector_index.f90)
 ## Inquiry functions (these are gets that could be optimized in the future to communicate only the descriptors)
 caf_compile_executable(alloc_comp_multidim_shape alloc_comp_multidim_shape.F90)
+caf_compile_executable(get_static_array get_static_array.f90)
 
 ## Pure send() tests
 caf_compile_executable(send_array send_array_test.f90)

src/tests/unit/send-get/get_static_array.f90

@@ -0,0 +1,23 @@
+program get_static_array
+    type :: container
+        integer, allocatable :: stuff(:)
+    end type
+
+    type(container) :: co_containers(10)[*]
+
+    if (this_image() == 1) then
+        allocate(co_containers(2)%stuff(4))
+        co_containers(2)%stuff = [1,2,3,4]
+    end if
+
+    sync all
+
+    if (this_image() == 2) then
+        if (any(co_containers(2)[1]%stuff /= [1,2,3,4])) then
+          error stop "Test failed."
+        else
+          print *, "Test passed."
+        end if
+    end if
+end program
+