This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch, fortran] [4.3 Regression] ICE: left-over "@iostat" variable polutes namespace
- From: Jerry DeLisle <jvdelisle at verizon dot net>
- To: Fortran List <fortran at gcc dot gnu dot org>
- Cc: gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Fri, 11 Jan 2008 11:18:09 -0800
- Subject: [patch, fortran] [4.3 Regression] ICE: left-over "@iostat" variable polutes namespace
I will commit the following one-liner under obvious and simple rule.
Regression tested on x86-64. Test case attached.
Jerry
Index: trans-io.c
===================================================================
--- trans-io.c (revision 131460)
+++ trans-io.c (working copy)
@@ -1095,6 +1095,7 @@ create_dummy_iostat (void)
st->n.sym->ts.type = BT_INTEGER;
st->n.sym->ts.kind = gfc_default_integer_kind;
gfc_set_sym_referenced (st->n.sym);
+ gfc_commit_symbol (st->n.sym);
st->n.sym->backend_decl
= gfc_create_var (gfc_get_int_type (st->n.sym->ts.kind),
st->n.sym->name);
! { dg-do compile }
! PR34722 ICE: left-over "@iostat" variable polutes namespace
program gamsanal
implicit none
character :: tmp
integer iodict
logical dicexist
inquire(unit=iodict, exist=dicexist)
end
subroutine inventnames()
implicit none
end subroutine