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

[via flang-commits]

Author: harishch4
Date: 2023-12-18T18:27:34+05:30
New Revision: 482a37b86036f564a97ad66bbc7aca40fa9cee60

URL: https://github.com/llvm/llvm-project/commit/482a37b86036f564a97ad66bbc7aca40fa9cee60
DIFF: https://github.com/llvm/llvm-project/commit/482a37b86036f564a97ad66bbc7aca40fa9cee60.diff

LOG: [Flang][OpenMp]Add testcase for threadprivate with blank common block (#74969)

Added: 
    flang/test/Parser/OpenMP/threadprivate-blank-common-block.f90

Modified: 
    

Removed: 
    


################################################################################
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 00000000000000..6317258e6ec8d5
--- /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