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