1! { dg-do compile }
2! { dg-additional-options "-fdump-tree-original" }
3
4! PR fortran/98476
5
6use iso_c_binding, only: c_ptr
7implicit none (external, type)
8
9interface
10  subroutine bar(x)
11    import
12    type(c_ptr), value :: x
13  end
14end interface
15
16type(c_ptr) :: x
17
18!$omp target data map(alloc: x)
19!$omp target data use_device_ptr(x)
20  call bar(x)
21!$omp end target data
22!$omp end target data
23end
24
25! { dg-final { scan-tree-dump-times "pragma omp target data use_device_ptr\\(x\\)" 1 "original" } }
26