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

[via flang-commits]

================
@@ -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_'
----------------
harishch4 wrote:

I'm afraid not, this error is coming from MessageExpectedText::ToString() (flang/lib/Parser.cpp) which is generic to all parser errors. Changing this might affect other tests. Please let me know if there is any better way to do it.

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