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