Fortran/gfortran/regression/gomp/pr107214-6.f90 - llvm-test-suite - Git at Google

 ! { 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
	! { 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