gcc/testsuite/gfortran.dg/goacc/mapping-tests-4.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

subroutine foo
  type one
    integer i, j
  end type
  type two
    type(one) A, B
  end type

  type(two) x

! This is accepted at present, although it represents a probably-unintentional
! overlapping subcopy.
  !$acc enter data copyin(x%A, x%A%i)
! But this raises an error.
  !$acc enter data copyin(x%A, x%A%i, x%A%i)
! { dg-error ".x.a.i. appears more than once in map clauses" "" { target *-*-* } .-1 }
end