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" } |