flang/test/Semantics/OpenMP/requires09.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 5.0
   3 ! 2.4 Requires directive
   4 ! All atomic_default_mem_order clauses in 'requires' directives found within a
   5 ! compilation unit must specify the same ordering.
   6
   7 subroutine f
   8   !$omp requires atomic_default_mem_order(seq_cst)
   9 end subroutine f
  10
  11 !ERROR: Conflicting 'ATOMIC_DEFAULT_MEM_ORDER' REQUIRES clauses found in compilation unit
  12 subroutine g
  13   !$omp requires atomic_default_mem_order(relaxed)
  14 end subroutine g