We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 7008421 commit 04a4c55Copy full SHA for 04a4c55
flang/test/Semantics/critical05.f90
@@ -0,0 +1,18 @@
1
+! RUN: %python %S/test_symbols.py %s %flang_fc1 -fopenmp
2
+! XFAIL: *
3
+!Checking for name collision of a critical construct with other elements of a program
4
+
5
+!DEF: /check_symbols MainProgram
6
+program check_symbols
7
+ !DEF: /check_symbols/i ObjectEntity INTEGER(4)
8
+ integer i, bar
9
+ !REF: /check_symbols/i
10
+ foo: do i = 1, 10
11
+ end do foo
12
13
+ !$omp critical (foo)
14
+ !$omp end critical (foo)
15
16
+ !$omp critical (bar)
17
+ !$omp end critical (bar)
18
+end program check_symbols
0 commit comments