gcc-4.9/gcc/testsuite/gfortran.dg/pr40839.f90


1
2
3
4
5

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