gcc/testsuite/gfortran.dg/gomp/pr107214-6.f90

! { dg-do compile }

integer :: x

!$omp target map(x) private(x)  ! { dg-error "Symbol 'x' present on multiple clauses" }
x = x + 1
!$omp end target

end