This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [patch,gfortran] Fix PR17917 - module equivalences
- From: Steven Bosscher <stevenb at suse dot de>
- To: fortran at gcc dot gnu dot org, paulthomas2 at wanadoo dot fr
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Thu, 16 Jun 2005 18:29:19 +0200
- Subject: Re: [patch,gfortran] Fix PR17917 - module equivalences
- Organization: SUSE Labs
- References: <13012029.1118938830177.JavaMail.www@wwinf0303>
On Thursday 16 June 2005 18:20, Paul THOMAS wrote:
> (Properly tabbed version is attached.)
>
> 2005-06-17 Paul Thomas
> PR fortran/17917
> Port from g95.
> * module.c (load_equiv): New function.
> (read_module): Call load_equiv.
> (write_equiv): New function. Correct string referencing for
> gfc functions.
> (write_module): Call write_equiv.
> * trans_decl.c (gfc_create_module_variable): Return for
> equivalenced symbols with existing backend declaration.
> * gfortran.h (gfc_equiv): Add field for module name.
>
> 2005-06-17 Paul Thomas
> PR fortran/17917
> * gfortran.dg/module_equiv.f90: New.
+ /* Equivalenced variables arrive here after creation. */
+ if (sym->backend_decl && sym->equiv_built)
+ return;
+
Odd indentation.
+ const char *module;
Could you explain what this is for? I see we write it and read it,
but it's not used for anything else. Needed for follow-up work?
Otherwise this looks good.
Gr.
Steven