1! RUN: not %flang_fc1 -fsyntax-only %s -fopenmp 2>&1 | FileCheck %s
2! From Standard: A blank common block cannot appear in a threadprivate directive.
3
4program main
5 integer :: a
6 common//a
7 !CHECK: error: expected one of '$@ABCDEFGHIJKLMNOPQRSTUVWXYZ_'
8 !$omp threadprivate(//)
9 end
10