1module m ! { dg-error "has OpenMP device constructs/routines but does not set !.OMP REQUIRES UNIFIED_SHARED_MEMORY but other program units do" } 2 !$omp requires reverse_offload 3contains 4 subroutine foo 5 interface 6 subroutine bar2 7 !$!omp requires dynamic_allocators 8 end subroutine 9 end interface 10 !$omp target 11 call bar2() 12 !$omp end target 13 end subroutine foo 14end module m 15 16subroutine bar ! { dg-error "has OpenMP device constructs/routines but does not set !.OMP REQUIRES REVERSE_OFFSET but other program units do" } 17 !use m 18 !$omp requires unified_shared_memory 19 !$omp declare target 20end subroutine bar 21 22! { dg-prune-output "not yet supported" } 23