summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/fmt_label_1.f90
blob: eb11b790d2f23c222a4abd93ee8f9a608d730f4a (plain)
1
2
3
4
5
6
7
8
! { 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