This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch, fortran] pr25054, pr25089 - ping**2
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Paul Thomas <paulthomas2 at wanadoo dot fr>
- Cc: patch <gcc-patches at gcc dot gnu dot org>, "'fortran at gcc dot gnu dot org'" <fortran at gcc dot gnu dot org>
- Date: Sat, 18 Feb 2006 07:57:34 -0800
- Subject: Re: [Patch, fortran] pr25054, pr25089 - ping**2
- References: <43F65300.1050604@wanadoo.fr>
On Fri, Feb 17, 2006 at 11:49:36PM +0100, Paul Thomas wrote:
> static try
> + resolve_fl_namelist (gfc_symbol *sym)
> + {
> + gfc_namelist *nl;
> + gfc_symbol *nlsym;
> +
> + /* Reject PRIVATE objects in a PUBLIC namelist. */
> + if (gfc_check_access(sym->attr.access, sym->ns->default_access))
> + {
> + for (nl = sym->namelist; nl; nl = nl->next)
> + {
> + if (!nl->sym->attr.use_assoc
> + &&
> + !(sym->ns->parent == nl->sym->ns)
> + &&
> + !gfc_check_access(nl->sym->attr.access,
> + nl->sym->ns->default_access))
The whitespace looks fairly mangled here. The patch
is OK to commit with the above fixed and the new testcase
namelist_5.f90.
--
Steve