[Fwd: [gfortran] Fix PRs 17535, 17583, 17713]

[Fwd: [gfortran] Fix PRs 17535, 17583, 17713]

[Tobias Schlüter]

My original message didn't make it through, no matter what I tried, therefore
I only offer a very brief description of this patch, in order to not have this
rejected for the 15th time.

This patch also sets the module name on dummy arguments emitted into the
module file. This is a workaround, not a real fix, but it fixes the PRs
mentioned in the subject line. All these seem to be regressions that were
introduced when we fixed PR 16485.

Built and tested, I will commit the testcases from the PRs along with this. Ok?

- Tobi

2004-10-10  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>

	PR fortran/17535
	PR fortran/17583
	PR fortran/17713
	* module.c (write_symbol1): Set module_name for dummy arguments.

Index: module.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/module.c,v
retrieving revision 1.19
diff -u -p -r1.19 module.c
--- module.c    10 Oct 2004 14:35:39 -0000      1.19
+++ module.c    10 Oct 2004 14:36:57 -0000
@@ -3269,6 +3269,11 @@ write_symbol1 (pointer_info * p)
   if (p->type != P_SYMBOL || p->u.wsym.state != NEEDS_WRITE)
     return 0;

+  /* FIXME: This shouldn't be necessary, but it works around
+     deficiencies in the module loader or/and symbol handling.  */
+  if (p->u.wsym.sym->module[0] == '\0' && p->u.wsym.sym->attr.dummy)
+    strcpy (p->u.wsym.sym->module, module_name);
+
   p->u.wsym.state = WRITTEN;
   write_symbol (p->integer, p->u.wsym.sym);

Re: [Fwd: [gfortran] Fix PRs 17535, 17583, 17713]

[Paul Brook]

> 2004-10-10  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
>
>  PR fortran/17535
>  PR fortran/17583
>  PR fortran/17713
>  * module.c (write_symbol1): Set module_name for dummy arguments.

Ok.

Paul