xref: /llvm-project/flang/test/Semantics/OpenMP/ompx-bare.f90 (revision 7c9404c279cfa13e24a043e6357cc85bd12f55f1)
1*7c9404c2SIvan R. Ivanov!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=51
2*7c9404c2SIvan R. Ivanov
3*7c9404c2SIvan R. Ivanovsubroutine test1
4*7c9404c2SIvan R. Ivanov!ERROR: OMPX_BARE clause is only allowed on combined TARGET TEAMS
5*7c9404c2SIvan R. Ivanov  !$omp target ompx_bare
6*7c9404c2SIvan R. Ivanov  !$omp end target
7*7c9404c2SIvan R. Ivanovend
8*7c9404c2SIvan R. Ivanov
9*7c9404c2SIvan R. Ivanovsubroutine test2
10*7c9404c2SIvan R. Ivanov  !$omp target
11*7c9404c2SIvan R. Ivanov!ERROR: OMPX_BARE clause is only allowed on combined TARGET TEAMS
12*7c9404c2SIvan R. Ivanov  !$omp teams ompx_bare
13*7c9404c2SIvan R. Ivanov  !$omp end teams
14*7c9404c2SIvan R. Ivanov  !$omp end target
15*7c9404c2SIvan R. Ivanovend
16*7c9404c2SIvan R. Ivanov
17*7c9404c2SIvan R. Ivanovsubroutine test3
18*7c9404c2SIvan R. Ivanov  integer i
19*7c9404c2SIvan R. Ivanov!ERROR: OMPX_BARE clause is only allowed on combined TARGET TEAMS
20*7c9404c2SIvan R. Ivanov  !$omp target teams distribute ompx_bare
21*7c9404c2SIvan R. Ivanov  do i = 0, 10
22*7c9404c2SIvan R. Ivanov  end do
23*7c9404c2SIvan R. Ivanov  !$omp end target teams distribute
24*7c9404c2SIvan R. Ivanovend
25*7c9404c2SIvan R. Ivanov
26*7c9404c2SIvan R. Ivanovsubroutine test4
27*7c9404c2SIvan R. Ivanov!No errors
28*7c9404c2SIvan R. Ivanov  !$omp target teams ompx_bare
29*7c9404c2SIvan R. Ivanov  !$omp end target teams
30*7c9404c2SIvan R. Ivanovend
31