diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 15 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 9 |
2 files changed, 19 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 55ba5ed..6750a13 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,13 +1,20 @@ +2005-07-03 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR fortran/20842 + * io.c (match_dt_element): Do not allow END tag in PRINT or + WRITE statement. + 2005-07-02 Joseph S. Myers <joseph@codesourcery.com> * lang.opt: Remove "." from end of help texts. 2005-07-01 Jerry DeLisle <jvdelisle@verizon.net> - * gfortran.texi: Fix typos and grammar. - * invoke.texi: Fix typos and grammar. - * intrinsic.texi: Add documentaion for eoshift, epsilon, etime, and exit. - Fixed alignment of text for dtime syntax. Fixed a few line lengths. + * gfortran.texi: Fix typos and grammar. + * invoke.texi: Fix typos and grammar. + * intrinsic.texi: Add documentaion for eoshift, epsilon, etime, and + exit. Fixed alignment of text for dtime syntax. Fixed a few line + lengths. 2005-06-25 Jakub Jelinek <jakub@redhat.com> diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index c5ceb06..ef51308 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -1643,7 +1643,14 @@ match_dt_element (io_kind k, gfc_dt * dt) m = match_ltag (&tag_end, &dt->end); if (m == MATCH_YES) - dt->end_where = gfc_current_locus; + { + if (k == M_WRITE) + { + gfc_error ("END tag at %C not allowed in output statement"); + return MATCH_ERROR; + } + dt->end_where = gfc_current_locus; + } if (m != MATCH_NO) return m; |