1! { dg-do compile }
2!
3! Check for diagnostics (PR 34108)
4  write (*,0) 'xxx' ! { dg-error "Statement label .* is zero" }
5  write (*,1) 'xxx' ! { dg-error "FORMAT label .* not defined" }
6  write (*,123456) 'xxx' ! { dg-error "Too many digits in statement label" }
7  write (*,-1) 'xxx' ! { dg-error "" }
8  end
9