[smoke-fort-fails] Add flang-523213 test for optional shared (#1385)

Author: dpalermo

test/smoke-fort-fails/Makefile

@@ -17,6 +17,7 @@ TESTS_DIR = \
     flang-519158 \
     flang-519158-par \
     flang-522059 \
+    flang-523213 \
     flang-522365-loop-1-1 \
     flang-522365-loop-2a \
     flang-522365-loop-2s \

test/smoke-fort-fails/flang-523213/Makefile

@@ -0,0 +1,17 @@
+#NOOPT        = 1
+#NOOMP        = 1
+#OMP_FLAGS    = -fopenmp
+include ../../Makefile.defs
+
+TESTNAME     = repro_optional_shared
+TESTSRC_MAIN = repro_optional_shared.F90
+TESTSRC_AUX  =
+TESTSRC_ALL  = $(TESTSRC_MAIN) $(TESTSRC_AUX)
+
+FLANG        ?= flang
+OMP_BIN      = $(AOMP)/bin/$(FLANG)
+CC           = $(OMP_BIN) $(VERBOSE)
+#-ccc-print-phases
+#"-\#\#\#"
+
+include ../Makefile.rules

test/smoke-fort-fails/flang-523213/repro_optional_shared.F90

@@ -0,0 +1,48 @@
+MODULE MOD
+  IMPLICIT NONE
+CONTAINS
+  SUBROUTINE ROUTINE(A, B)
+    IMPLICIT NONE
+    REAL(4), ALLOCATABLE, OPTIONAL, INTENT(IN) :: A(:)
+    REAL(4), INTENT(OUT) :: B(:)
+    INTEGER(4) :: I, IA
+    IF(PRESENT(A)) THEN
+       IA = 1
+       write(*,*) "A is present"
+    ELSE
+       IA=0
+       write(*,*) "A is NOT present"
+    END IF
+    
+
+    !$OMP TARGET TEAMS DISTRIBUTE PARALLEL DO SHARED(A,B,IA)
+    DO I=1,10
+       IF (IA>0) THEN
+          B(I) = B(I) + A(I)
+       END IF
+    END DO
+
+  END SUBROUTINE ROUTINE
+
+END MODULE MOD
+
+PROGRAM MAIN
+  USE MOD
+  IMPLICIT NONE
+  REAL(4), ALLOCATABLE :: A(:)
+  REAL(4), ALLOCATABLE :: B(:)
+  INTEGER(4) :: I
+  ALLOCATE(B(10))
+  DO I=1,10
+     B(I)=0
+  END DO
+  !$OMP TARGET DATA MAP(FROM: B)
+
+  CALL ROUTINE(B=B)
+
+  !$OMP END TARGET DATA
+  DO I=1,10
+     WRITE(*,*), B(I)
+  ENDDO
+  DEALLOCATE(B)
+END PROGRAM MAIN