nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / fmt_label_1.f90
blobeb11b790d2f23c222a4abd93ee8f9a608d730f4a
1 ! { dg-do compile }
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