diff options
| author | Bernhard Fischer <aldot@gcc.gnu.org> | 2006-04-18 19:58:41 +0200 |
|---|---|---|
| committer | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2006-04-18 19:58:41 +0200 |
| commit | 9b3e4c45ade1f7722a53c3a19def9bafaaca4707 (patch) | |
| tree | ea673eafaa5e0941cdff1244be943f0655791326 /gcc/fortran/parse.c | |
| parent | d955420ef2745f2a2c8ec7f0f6d2e2bd1296afb9 (diff) | |
| download | gcc-9b3e4c45ade1f7722a53c3a19def9bafaaca4707.zip gcc-9b3e4c45ade1f7722a53c3a19def9bafaaca4707.tar.gz gcc-9b3e4c45ade1f7722a53c3a19def9bafaaca4707.tar.bz2 | |
parse.c (next_free): Use consistent error string between free-form and fixed-form for illegal...
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
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index b120bbb..5fb9ce1 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -428,9 +428,9 @@ next_free (void) 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 (); @@ -600,7 +600,7 @@ next_fixed (void) 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; } |