gcc/testsuite/gfortran.dg/gomp/pr78866-2.f90 - gcc - Git at Google

 ! PR fortran/78866
 ! { dg-do compile }

 subroutine pr78866(x)
   integer :: x(*)
 !$omp target		! { dg-error "implicit mapping of assumed size array" }
   x(1) = 1
 !$omp end target
 end
	! PR fortran/78866
	! { dg-do compile }

	subroutine pr78866(x)
	integer :: x(*)
	!$omp target ! { dg-error "implicit mapping of assumed size array" }
	x(1) = 1
	!$omp end target
	end