1! { dg-do compile }
2! PR fortran/20842
3WRITE(UNIT=6,END=999) 0 ! { dg-error "END tag .* not allowed in output statement" }
4999 CONTINUE
5END
6