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

 ! PR fortran/40839
 ! { dg-do compile }
 write(fmt='(a)'), 'abc'         ! { dg-error "UNIT not specified" }
 write(fmt='()')                 ! { dg-error "UNIT not specified" }
 end
	! PR fortran/40839
	! { dg-do compile }
	write(fmt='(a)'), 'abc' ! { dg-error "UNIT not specified" }
	write(fmt='()') ! { dg-error "UNIT not specified" }
	end