fortran/
* parse.c (next_free): Use consistent error string between
free-form and fixed-form for illegal statement label of zero.
(next_fixed): Use consistent warning string between free-form
and fixed-form for statement labels for empty statements.
testsuite/
* gfortran.dg/label_1.f90: Adjust dg-error.
From-SVN: r113053
+2006-04-18 Bernhard Fischer <aldot@gcc.gnu.org>
+
+ * parse.c (next_free): Use consistent error string between
+ free-form and fixed-form for illegal statement label of zero.
+ (next_fixed): Use consistent warning string between free-form
+ and fixed-form for statement labels for empty statements.
+
2006-04-18 Steve Ellcey <sje@cup.hp.com>
* trans-io.c (gfc_build_io_library_fndecls): Align pad.
if (cnt > 5)
gfc_error_now ("Too many digits in statement label at %C");
-
+
if (c == 0)
- gfc_error_now ("Statement label at %C is zero");
+ gfc_error_now ("Zero is not a valid statement label at %C");
do
c = gfc_next_char ();
blank_line:
if (digit_flag)
- gfc_warning ("Statement label in blank line will be ignored at %C");
+ gfc_warning ("Ignoring statement label in empty statement at %C");
gfc_advance_line ();
return ST_NONE;
}
+2006-04-18 Bernhard Fischer <aldot@gcc.gnu.org>
+
+ * gfortran.dg/label_1.f90: Adjust dg-error.
+
2006-04-16 Roger Sayle <roger@eyesopen.com>
PR target/26961
program a
0056780 continue ! { dg-error "Too many digits" }
-0 continue ! { dg-error "Statement label at" }
+0 continue ! { dg-error "Zero is not a valid statement label" }
stop 001234 ! { dg-error "Too many digits" }
end program a