------- 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