diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-08-31 18:01:57 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-08-31 18:01:57 +0200 |
| commit | 5e18375c6ea2513c5a171f817966f11ee0af9b50 (patch) | |
| tree | eade0fc7ddfcdf115a8e3a1e39e6ac28b0a6ae90 /gcc/fortran | |
| parent | 75b226408d2c03ebf1e2e15fa9fb93fcd7a2393d (diff) | |
| download | gcc-5e18375c6ea2513c5a171f817966f11ee0af9b50.zip gcc-5e18375c6ea2513c5a171f817966f11ee0af9b50.tar.gz gcc-5e18375c6ea2513c5a171f817966f11ee0af9b50.tar.bz2 | |
re PR fortran/33232 (Diagnose comma in "read()," and "write(),")
2007-08-31 Tobias Burnus <burnus@net-b.de>
PR fortran/33232
* io.c (match_io): Also diagnose extra comma for READ.
2007-08-31 Tobias Burnus <burnus@net-b.de>
PR fortran/33232
* gfortran.dg/eor_handling_2.f90: Add dg-warnings.
* gfortran.dg/read_1.f90: New.
From-SVN: r127997
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 5 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 629859f..9e8abea 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2007-08-31 Tobias Burnus <burnus@net-b.de> + + PR fortran/33232 + * io.c (match_io): Also diagnose extra comma for READ. + 2007-08-31 Joseph Myers <joseph@codesourcery.com> * intrinsic.texi (LGAMMA): Remove empty @cindex line. diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index ef1b88e..1ecea88 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -2975,9 +2975,8 @@ get_io_list: /* Optional leading comma (non-standard). */ if (!comma_flag && gfc_match_char (',') == MATCH_YES - && k == M_WRITE - && gfc_notify_std (GFC_STD_GNU, "Extension: Comma before output " - "item list at %C is an extension") == FAILURE) + && gfc_notify_std (GFC_STD_GNU, "Extension: Comma before i/o " + "item list at %C") == FAILURE) return MATCH_ERROR; io_code = NULL; |