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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/label_1.f90 | 2 |
4 files changed, 15 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 01b8071..c954717 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +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. 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; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 32e2d11..e48bc78 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +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 diff --git a/gcc/testsuite/gfortran.dg/label_1.f90 b/gcc/testsuite/gfortran.dg/label_1.f90 index 149c79f..94f3b5e 100644 --- a/gcc/testsuite/gfortran.dg/label_1.f90 +++ b/gcc/testsuite/gfortran.dg/label_1.f90 @@ -3,7 +3,7 @@ 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 |