s = u;
}
}
-
-/* { dg-prune-output "not supported yet" } */
#pragma omp requires unified_shared_memory unified_address
#pragma omp requires atomic_default_mem_order(seq_cst)
-
-/* { dg-prune-output "not supported yet" } */
#pragma omp requires dynamic_allocators , dynamic_allocators /* { dg-error "too many 'dynamic_allocators' clauses" } */
#pragma omp requires atomic_default_mem_order(seq_cst) atomic_default_mem_order(seq_cst) /* { dg-error "too many 'atomic_default_mem_order' clauses" } */
#pragma omp requires atomic_default_mem_order (seq_cst) /* { dg-error "more than one 'atomic_default_mem_order' clause in a single compilation unit" } */
-
-/* { dg-prune-output "not supported yet" } */
/* { dg-final { scan-tree-dump-times "__attribute__\\(\\(omp declare target\\)\\)\[\n\r\]*int called_in_target2" 1 "omplower" } } */
/* { dg-final { scan-tree-dump-times "__attribute__\\(\\(omp declare target, omp declare target block\\)\\)\[\n\r\]*void tg_fn" 1 "omplower" } } */
-/* { dg-prune-output "'reverse_offload' clause on 'requires' directive not supported yet" } */
-
#pragma omp requires reverse_offload
extern int add_3 (int);
#pragma omp requires atomic_default_mem_order(seq_cst)
}
}
-
-/* { dg-prune-output "not supported yet" } */
!$omp requires unified_shared_memory unified_address
!$omp requires atomic_default_mem_order(seq_cst)
end
-
-! { dg-prune-output "not yet supported" }
!$omp requires atomic_default_mem_order (acq_rel) ! { dg-error "overrides a previous 'atomic_default_mem_order\\(seq_cst\\)'" }
!$omp requires atomic_default_mem_order (foo) ! { dg-error "Expected ACQ_REL, ACQUIRE, RELAXED, RELEASE or SEQ_CST for ATOMIC_DEFAULT_MEM_ORDER clause" }
end
-
-! { dg-prune-output "not yet supported" }
!$omp requires unified_address ! { dg-error "must appear in the specification part of a program unit" }
end subroutine bar
end
-! { dg-prune-output "not yet supported" }
!$omp target
!$omp end target
end
-
-! { dg-prune-output "not yet supported" }
i = i + 5
!$omp requires atomic_default_mem_order(acq_rel) ! { dg-error "Unexpected !.OMP REQUIRES statement" }
end
-
-! { dg-prune-output "not yet supported" }
!$omp requires unified_shared_memory ! { dg-error "must appear in the specification part of a program unit" }
end
end
-! { dg-prune-output "not yet supported" }