1! { dg-additional-options "-fdump-tree-gimple" } 2 3subroutine foo 4 type one 5 integer i, j 6 end type 7 type two 8 type(one) A, B 9 end type 10 11 type(two) x 12 13 !$acc enter data copyin(x%A) 14! { dg-final { scan-tree-dump-times "omp target oacc_enter_exit_data map\\(struct:x \\\[len: 1\\\]\\) map\\(to:x.a \\\[len: \[0-9\]+\\\]\\)" 1 "gimple" } } 15end 16