9 lines
308 B
Fortran
9 lines
308 B
Fortran
! { dg-do compile }
|
|
!
|
|
! Check for diagnostics (PR 34108)
|
|
write (*,0) 'xxx' ! { dg-error "Statement label .* is zero" }
|
|
write (*,1) 'xxx' ! { dg-error "FORMAT label .* not defined" }
|
|
write (*,123456) 'xxx' ! { dg-error "Too many digits in statement label" }
|
|
write (*,-1) 'xxx' ! { dg-error "" }
|
|
end
|