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