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

 ! { dg-do compile }

 program p
    integer, allocatable :: a
    !$omp target map(tofrom: a, a) ! { dg-error "Symbol 'a' present on multiple clauses" }
    !$omp end target
 end
	! { dg-do compile }

	program p
	integer, allocatable :: a
	!$omp target map(tofrom: a, a) ! { dg-error "Symbol 'a' present on multiple clauses" }
	!$omp end target
	end