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