gcc/testsuite/gfortran.dg/label_1.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR 25106 and 25055.
   3
   4 program a
   5 0056780 continue    ! { dg-error "Too many digits" }
   6 0 continue          ! { dg-error "Zero is not a valid statement label" }
   7   stop 001234       ! { dg-error "Too many digits" }
   8 end program a
   9
  10