18 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 5.03! 2.4 Requires directive4! All atomic_default_mem_order clauses in 'requires' directives must come5! strictly before any atomic directives on which the memory_order clause is not6! specified.7 8subroutine f9 integer :: a = 010 !$omp atomic11 a = a + 112end subroutine f13 14subroutine g15 !ERROR: REQUIRES directive with 'ATOMIC_DEFAULT_MEM_ORDER' clause found lexically after atomic operation without a memory order clause16 !$omp requires atomic_default_mem_order(relaxed)17end subroutine g18