gcc/testsuite/gfortran.dg/assign_1.f90 - gcc - Git at Google

 ! { dg-do compile }
 ! Option passed to avoid excess errors from obsolete warning
 ! { dg-options "-w" }
       integer i(5)
       assign 1000 to i   ! { dg-error "scalar default INTEGER" }
  1000 continue
       end
	! { dg-do compile }
	! Option passed to avoid excess errors from obsolete warning
	! { dg-options "-w" }
	integer i(5)
	assign 1000 to i ! { dg-error "scalar default INTEGER" }
	1000 continue
	end