subroutine bar !$omp requires atomic_default_mem_order(seq_cst) !$omp requires unified_shared_memory end subroutine foo !$omp requires unified_shared_memory !$omp requires unified_shared_memory !$omp requires atomic_default_mem_order(relaxed) !$omp requires atomic_default_mem_order(relaxed) !$omp requires atomic_default_mem_order(seq_cst) ! { dg-error "overrides a previous 'atomic_default_mem_order\\(seq_cst\\)'" } !$omp target !$omp end target end ! { dg-prune-output "not yet supported" }