Skip to content

Commit 022c91a

Browse files
committed
Add one more test.
1 parent 9ad3e83 commit 022c91a

File tree

1 file changed

+11
-0
lines changed

1 file changed

+11
-0
lines changed

flang/test/Semantics/OpenMP/nested-target.f90

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -63,4 +63,15 @@ program main
6363
!$omp end target data
6464
!$omp end target teams
6565

66+
!$omp target teams map(to:a) map(from:n1,n2)
67+
!PORTABILITY: If TARGET TEAMS DISTRIBUTE PARALLEL DO directive is nested inside TARGET region, the behaviour is unspecified
68+
!$omp target teams distribute parallel do
69+
do i=1, n1
70+
do j=1, n2
71+
res((i-1)*10+j) = i*j
72+
end do
73+
end do
74+
!$omp end target teams distribute parallel do
75+
!$omp end target teams
76+
6677
end program main

0 commit comments

Comments
 (0)