Skip to content

Commit a6d387e

Browse files
Krish GuptaKrish Gupta
authored andcommitted
[flang][OpenMP] Add test: named COMMON + member with firstprivate+lastprivate is valid
1 parent 6b1604a commit a6d387e

File tree

1 file changed

+13
-0
lines changed

1 file changed

+13
-0
lines changed
Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
! RUN: %flang_fc1 -fopenmp -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty
2+
! CHECK-NOT: error:
3+
! CHECK-NOT: warning:
4+
5+
subroutine sub1()
6+
common /com/ j
7+
j = 10
8+
!$omp parallel do firstprivate(j) lastprivate(/com/)
9+
do i = 1, 10
10+
j = j + 1
11+
end do
12+
!$omp end parallel do
13+
end

0 commit comments

Comments
 (0)