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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131475 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 645cbdb..1874ff9 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 6c43849..70a4b37 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);