10 lines
295 B
Fortran
10 lines
295 B
Fortran
|
! 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
|