------- Comment #9 from tobi at gcc dot gnu dot org 2007-10-04 22:15 -------
I thought this would fix it, but this gives internal errors. I'll investigate
further when I have time.
2007-10-04 Tobias Schlüter <[EMAIL PROTECTED]>
PR fortran/32147
* module.c (write_symbol0): Traverse tree in alphabetical order.
diff -r 06395d4340f4 gcc/fortran/module.c
--- a/gcc/fortran/module.c Thu Oct 04 23:16:32 2007 +0200
+++ b/gcc/fortran/module.c Fri Oct 05 00:13:29 2007 +0200
@@ -3918,7 +3918,6 @@ write_symbol0 (gfc_symtree *st)
return;
write_symbol0 (st->left);
- write_symbol0 (st->right);
sym = st->n.sym;
if (sym->module == NULL)
@@ -3940,6 +3939,8 @@ write_symbol0 (gfc_symtree *st)
write_symbol (p->integer, sym);
p->u.wsym.state = WRITTEN;
+
+ write_symbol0 (st->right);
}
--
tobi at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tobi at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32147
