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