gcc/testsuite/gfortran.dg/gomp/requires-6.f90

   1 subroutine bar
   2 !$omp atomic
   3  i = i + 5
   4 end
   5
   6 subroutine foo
   7 !$omp requires atomic_default_mem_order(seq_cst)
   8 end
   9
  10 subroutine foobar
  11 !$omp atomic
  12  i = i + 5
  13 !$omp requires atomic_default_mem_order(acq_rel) ! { dg-error "Unexpected !.OMP REQUIRES statement" }
  14 end
  15
  16 ! { dg-prune-output "not yet supported" }