17 lines
564 B
Fortran
17 lines
564 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
|
|
! OpenMP Version 5.0
|
|
! 2.4 Requires directive
|
|
! All atomic_default_mem_order clauses in 'requires' directives must come
|
|
! strictly before any atomic directives on which the memory_order clause is not
|
|
! specified.
|
|
|
|
subroutine f
|
|
integer :: a = 0
|
|
!$omp atomic
|
|
a = a + 1
|
|
end subroutine f
|
|
|
|
subroutine g
|
|
!ERROR: REQUIRES directive with 'ATOMIC_DEFAULT_MEM_ORDER' clause found lexically after atomic operation without a memory order clause
|
|
!$omp requires atomic_default_mem_order(relaxed)
|
|
end subroutine g
|