31 lines
661 B
Fortran
31 lines
661 B
Fortran
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=51
|
|
|
|
subroutine test1
|
|
!ERROR: OMPX_BARE clause is only allowed on combined TARGET TEAMS
|
|
!$omp target ompx_bare
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine test2
|
|
!$omp target
|
|
!ERROR: OMPX_BARE clause is only allowed on combined TARGET TEAMS
|
|
!$omp teams ompx_bare
|
|
!$omp end teams
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine test3
|
|
integer i
|
|
!ERROR: OMPX_BARE clause is only allowed on combined TARGET TEAMS
|
|
!$omp target teams distribute ompx_bare
|
|
do i = 0, 10
|
|
end do
|
|
!$omp end target teams distribute
|
|
end
|
|
|
|
subroutine test4
|
|
!No errors
|
|
!$omp target teams ompx_bare
|
|
!$omp end target teams
|
|
end
|