forked from OSchip/llvm-project
54 lines
1.5 KiB
Fortran
54 lines
1.5 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang -fopenmp
|
|
|
|
! OpenMP Version 5.0
|
|
! 2.17.1 critical construct
|
|
! If the hint clause is specified, the critical construct must have a name.
|
|
program sample
|
|
use omp_lib
|
|
integer i, j
|
|
!ERROR: Hint clause other than omp_sync_hint_none cannot be specified for an unnamed CRITICAL directive
|
|
!$omp critical hint(omp_lock_hint_speculative)
|
|
j = j + 1
|
|
!$omp end critical
|
|
|
|
!$omp critical (foo) hint(omp_lock_hint_speculative)
|
|
i = i - 1
|
|
!$omp end critical (foo)
|
|
|
|
!ERROR: Hint clause other than omp_sync_hint_none cannot be specified for an unnamed CRITICAL directive
|
|
!$omp critical hint(omp_lock_hint_nonspeculative)
|
|
j = j + 1
|
|
!$omp end critical
|
|
|
|
!$omp critical (foo) hint(omp_lock_hint_nonspeculative)
|
|
i = i - 1
|
|
!$omp end critical (foo)
|
|
|
|
!ERROR: Hint clause other than omp_sync_hint_none cannot be specified for an unnamed CRITICAL directive
|
|
!$omp critical hint(omp_lock_hint_contended)
|
|
j = j + 1
|
|
!$omp end critical
|
|
|
|
!$omp critical (foo) hint(omp_lock_hint_contended)
|
|
i = i - 1
|
|
!$omp end critical (foo)
|
|
|
|
!ERROR: Hint clause other than omp_sync_hint_none cannot be specified for an unnamed CRITICAL directive
|
|
!$omp critical hint(omp_lock_hint_uncontended)
|
|
j = j + 1
|
|
!$omp end critical
|
|
|
|
!$omp critical (foo) hint(omp_lock_hint_uncontended)
|
|
i = i - 1
|
|
!$omp end critical (foo)
|
|
|
|
!$omp critical hint(omp_sync_hint_none)
|
|
j = j + 1
|
|
!$omp end critical
|
|
|
|
!$omp critical (foo) hint(omp_sync_hint_none)
|
|
i = i - 1
|
|
!$omp end critical (foo)
|
|
|
|
end program sample
|