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