view gcc/testsuite/gfortran.dg/goacc/mapping-tests-1.f90 @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 1830386684a0
children
line wrap: on
line source

! { dg-do compile }

subroutine foo
  type t
    integer :: i, j
  end type t

  type(t) x

  ! We should reject the duplicate reference here.
!$acc enter data copyin(x%i, x%i)
! { dg-error ".x.i. appears more than once in map clauses" "" { target "*-*-*" } 11 }


end