133965Sjdp! PR fortran/40839
260484Sobrien! { dg-do compile }
360484Sobrienwrite(fmt='(a)'), 'abc'         ! { dg-error "UNIT not specified" }
433965Sjdpwrite(fmt='()')                 ! { dg-error "UNIT not specified" }
533965Sjdpend
633965Sjdp