[flang-commits] [flang] [Flang][OpenMp]Add testcase for threadprivate with blank common block (PR #74969)

via flang-commits flang-commits at lists.llvm.org
Sat Dec 9 21:34:32 PST 2023


llvmbot wrote:


<!--LLVM PR SUMMARY COMMENT-->

@llvm/pr-subscribers-flang-parser

Author: None (harishch4)

<details>
<summary>Changes</summary>



---
Full diff: https://github.com/llvm/llvm-project/pull/74969.diff


1 Files Affected:

- (added) flang/test/Parser/OpenMP/threadprivate-blank-common-block.f90 (+9) 


``````````diff
diff --git a/flang/test/Parser/OpenMP/threadprivate-blank-common-block.f90 b/flang/test/Parser/OpenMP/threadprivate-blank-common-block.f90
new file mode 100644
index 0000000000000..b1ca96f5053c2
--- /dev/null
+++ b/flang/test/Parser/OpenMP/threadprivate-blank-common-block.f90
@@ -0,0 +1,9 @@
+! RUN: not %flang_fc1 -fsyntax-only %s -fopenmp 2>&1 | FileCheck %s
+! From Standard: A blank common block cannot appear in a threadprivate directive.
+
+program main
+    integer :: a
+    common//a
+    !CHECK: error: expected one of '$@ABCDEFGHIJKLMNOPQRSTUVWXYZ_'
+    !$omp threadprivate(//)
+ end
\ No newline at end of file

``````````

</details>


https://github.com/llvm/llvm-project/pull/74969


More information about the flang-commits mailing list