This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/36526] pointer in pure function
- From: "pault at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 20 Jun 2008 10:43:31 -0000
- Subject: [Bug fortran/36526] pointer in pure function
- References: <bug-36526-16322@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #2 from pault at gcc dot gnu dot org 2008-06-20 10:43 -------
(In reply to comment #1)
This is due to an error in interface.c. The following fixes the fault,
bootstraps and regtests OK. I will apply as obvious just as soon as I can.
Paul
Index: gcc/fortran/interface.c
===================================================================
*** gcc/fortran/interface.c (revision 136870)
--- gcc/fortran/interface.c (working copy)
*************** check_intents (gfc_formal_arglist *f, gf
*** 2379,2385 ****
return FAILURE;
}
! if (a->expr->symtree->n.sym->attr.pointer)
{
gfc_error ("Procedure argument at %L is local to a PURE "
"procedure and has the POINTER attribute",
--- 2379,2385 ----
return FAILURE;
}
! if (f->sym->attr.pointer)
{
gfc_error ("Procedure argument at %L is local to a PURE "
"procedure and has the POINTER attribute",
--
pault at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |pault at gcc dot gnu dot org
|dot org |
Status|NEW |ASSIGNED
Last reconfirmed|2008-06-13 17:52:34 |2008-06-20 10:43:30
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36526