blob: 844d7dad551bc65d84098ca29a91b4005c6ec363 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
// RUN: %clang_cc1 -verify -fopenmp -ferror-limit 100 -o - %s
// Test the reaction to some Fortran-only directives.
void foo() {
#pragma omp allocators // expected-error {{expected an OpenMP directive}}
#pragma omp do // expected-error {{expected an OpenMP directive}}
#pragma omp end workshare // expected-error {{expected an OpenMP directive}}
#pragma omp parallel workshare // expected-warning {{extra tokens at the end of '#pragma omp parallel' are ignored}}
#pragma omp workshare // expected-error {{expected an OpenMP directive}}
}
|
