* [gfortran] PR 14077
@ 2004-07-09 23:06 Tobias Schlüter
2004-07-09 23:20 ` Paul Brook
0 siblings, 1 reply; 2+ messages in thread
From: Tobias Schlüter @ 2004-07-09 23:06 UTC (permalink / raw)
To: GCC Fortran mailing list, patch
And another one, in PR14077 we would fail when reading a module where we
initialize only parts of an array. Since I could see no reason to put a
variables initialization in a module, unless we're dealing with a
parameter, I just made us stop i/o-ing those values.
If there's a case where we need this, please tell me, and add a testcase :-)
Built and tested on i686-pc-linux.
- Tobi
2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/14077
* module.c (mio_symbol); Don't I/O initial values unless if
symbol is a parameter.
Index: module.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/module.c,v
retrieving revision 1.9
diff -u -p -r1.9 module.c
--- module.c 9 Jul 2004 14:53:38 -0000 1.9
+++ module.c 9 Jul 2004 20:50:28 -0000
@@ -2675,7 +2675,9 @@ mio_symbol (gfc_symbol * sym)
mio_formal_arglist (sym);
- mio_expr (&sym->value);
+ if (sym->attr.flavor == FL_PARAMETER)
+ mio_expr (&sym->value);
+
mio_array_spec (&sym->as);
mio_symbol_ref (&sym->result);
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [gfortran] PR 14077
2004-07-09 23:06 [gfortran] PR 14077 Tobias Schlüter
@ 2004-07-09 23:20 ` Paul Brook
0 siblings, 0 replies; 2+ messages in thread
From: Paul Brook @ 2004-07-09 23:20 UTC (permalink / raw)
To: fortran; +Cc: Tobias Schlüter, patch
> 2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
>
> PR fortran/14077
> * module.c (mio_symbol); Don't I/O initial values unless if
> symbol is a parameter.
Ok.
Paul
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2004-07-09 22:07 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-07-09 23:06 [gfortran] PR 14077 Tobias Schlüter
2004-07-09 23:20 ` Paul Brook
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).