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