re PR fortran/34722 (ICE: left-over "@iostat" variable polutes namespace)

2008-01-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/34722
	* trans-io.c (create_dummy_iostat): Commit the symbol.

From-SVN: r131475

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 645cbdb04818c15a855b2713e1c943f7d5a7efe6..1874ff9345e79fa676c4829aba97b84094c29d31 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/34722
+       * trans-io.c (create_dummy_iostat): Commit the symbol.
+
 2008-01-11  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/34537

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 6c438496bb7a90e01f377bff2f147c46ad42bd16..70a4b3781d241bbb8e5e9d12c4b3e7d4ee90e154 100644 (file)
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -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);