(root)/
gcc-13.2.0/
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