We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6b1604a commit a6d387eCopy full SHA for a6d387e
flang/test/Semantics/OpenMP/omp-common-fp-lp.f90
@@ -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