diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-09-14 19:00:26 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-09-14 19:00:26 +0000 |
| commit | 3446fc502a687a381a934ea64d370502cc913e17 (patch) | |
| tree | b31161521a5e2658e17d08f34fb6524835969d73 /gcc/fortran/io.c | |
| parent | c5cc92f5c1118857dbc67f4d86d8fed8be498fc9 (diff) | |
| download | gcc-3446fc502a687a381a934ea64d370502cc913e17.zip gcc-3446fc502a687a381a934ea64d370502cc913e17.tar.gz gcc-3446fc502a687a381a934ea64d370502cc913e17.tar.bz2 | |
re PR fortran/35840 (ICE for character expression in I/O specifier)
2008-09-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Tobias Burnus <burnus@net.b.de>
PR fortran/35840
* io.c (match_vtag): Add tag name to error message.
(match_out_tag): Cleanup whitespace.
(gfc_resolve_dt): Resolve id and async tags.
Co-Authored-By: Tobias Burnus <burnus@net-b.de>
From-SVN: r140366
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 298c758..fb5ef3e 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -1121,14 +1121,15 @@ match_vtag (const io_tag *tag, gfc_expr **v) if (result->symtree->n.sym->attr.intent == INTENT_IN) { - gfc_error ("Variable tag cannot be INTENT(IN) at %C"); + gfc_error ("Variable %s cannot be INTENT(IN) at %C", tag->name); gfc_free_expr (result); return MATCH_ERROR; } if (gfc_pure (NULL) && gfc_impure_variable (result->symtree->n.sym)) { - gfc_error ("Variable tag cannot be assigned in PURE procedure at %C"); + gfc_error ("Variable %s cannot be assigned in PURE procedure at %C", + tag->name); gfc_free_expr (result); return MATCH_ERROR; } @@ -1141,13 +1142,13 @@ match_vtag (const io_tag *tag, gfc_expr **v) /* Match I/O tags that cause variables to become redefined. */ static match -match_out_tag(const io_tag *tag, gfc_expr **result) +match_out_tag (const io_tag *tag, gfc_expr **result) { match m; - m = match_vtag(tag, result); + m = match_vtag (tag, result); if (m == MATCH_YES) - gfc_check_do_variable((*result)->symtree); + gfc_check_do_variable ((*result)->symtree); return m; } @@ -2472,6 +2473,7 @@ gfc_resolve_dt (gfc_dt *dt) RESOLVE_TAG (&tag_rec, dt->rec); RESOLVE_TAG (&tag_spos, dt->rec); RESOLVE_TAG (&tag_advance, dt->advance); + RESOLVE_TAG (&tag_id, dt->id); RESOLVE_TAG (&tag_iomsg, dt->iomsg); RESOLVE_TAG (&tag_iostat, dt->iostat); RESOLVE_TAG (&tag_size, dt->size); @@ -2481,6 +2483,7 @@ gfc_resolve_dt (gfc_dt *dt) RESOLVE_TAG (&tag_e_round, dt->round); RESOLVE_TAG (&tag_e_blank, dt->blank); RESOLVE_TAG (&tag_e_decimal, dt->decimal); + RESOLVE_TAG (&tag_e_async, dt->asynchronous); e = dt->io_unit; if (gfc_resolve_expr (e) == SUCCESS |