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