Add test flang_red_swdev-273281-spmd

test/smoke/Makefile

@@ -34,6 +34,7 @@ TESTS_DIR = \
     flang_real16_prob \
     flang_reduction_offload \
     flang_red_swdev-273281 \
+    flang_red_swdev-273281-spmd \
     flang_tgt_alloc_ptr \
     function \
     function_overload \

test/smoke/flang_red_swdev-273281-spmd/Makefile

@@ -0,0 +1,21 @@
+include ../Makefile.defs
+
+TESTNAME     = flang_red_swdev-273281-spmd
+TESTSRC_MAIN = flang_red_swdev-273281-spmd.f90
+TESTSRC_AUX  =
+TESTSRC_ALL  = $(TESTSRC_MAIN) $(TESTSRC_AUX)
+
+TARGET       = -fopenmp -O3 -fopenmp-targets=amdgcn-amd-amdhsa -Xopenmp-target=amdgcn-amd-amdhsa -march=$(AOMP_GPU)
+
+FLANG        = flang
+OMP_BIN      = $(AOMP)/bin/$(FLANG)
+CC           = $(OMP_BIN) $(VERBOSE)
+#-ccc-print-phases
+#"-\#\#\#"
+
+include ../Makefile.rules
+
+run: $(TESTNAME)
+	LIBOMPTARGET_KERNEL_TRACE=1 \
+	$(RUNENV) ./$(TESTNAME) 1
+

test/smoke/flang_red_swdev-273281-spmd/flang_red_swdev-273281-spmd.f90

@@ -0,0 +1,32 @@
+program my_fib
+        integer ::i,j
+        real ::sum
+        real ::sum2
+        real,pointer ::array(:),buffer(:)
+        allocate(array(10))
+        allocate(buffer(10))
+
+        do j=1, 10
+           array(j)=1
+        end do
+
+           sum2=0
+           sum=1000
+
+        !$OMP TARGET TEAMS DISTRIBUTE PARALLEL DO REDUCTION(+:sum2) MAP(TO:array) MAP(TOFROM:buffer)
+        do i=1, 10
+           do j=1, 10
+              !sum=sum+array(j)
+              sum2=sum2+array(j)
+           end do
+
+           buffer(i)=sum+sum2
+        end do
+        !$OMP END TARGET TEAMS DISTRIBUTE parallel do
+
+        do i=1, 10
+        write(*, *) "sum=", buffer(i)
+        end do
+
+end program
+