1subroutine bar 2!$omp requires atomic_default_mem_order(seq_cst) 3!$omp requires unified_shared_memory 4end 5 6subroutine foo 7!$omp requires unified_shared_memory 8!$omp requires unified_shared_memory 9!$omp requires atomic_default_mem_order(relaxed) 10!$omp requires atomic_default_mem_order(relaxed) 11!$omp requires atomic_default_mem_order(seq_cst) ! { dg-error "overrides a previous 'atomic_default_mem_order\\(seq_cst\\)'" } 12 !$omp target 13 !$omp end target 14end 15 16! { dg-prune-output "not yet supported" } 17