[Patch, Fortran] PR fortran/37193: USE m, ONLY: i, j => i

[Daniel Kraft]

Paul Richard Thomas wrote:
> Daniel,
> 
> When you do it, would you kindly apply my patch for PR36371, please?
> I still do not have the means to check anything in:-(  Trunk has been
> patched for a good while with no problems.

No problem!

Index: gcc/fortran/interface.c
===================================================================
--- gcc/fortran/interface.c	(revision 137087)
+++ gcc/fortran/interface.c	(revision 137088)
@@ -2379,7 +2379,7 @@ check_intents (gfc_formal_arglist *f, gf
  	      return FAILURE;
  	    }

-	  if (a->expr->symtree->n.sym->attr.pointer)
+	  if (f->sym->attr.pointer)
  	    {
  	      gfc_error ("Procedure argument at %L is local to a PURE "
  			 "procedure and has the POINTER attribute",

What's about this part of your check-in?  Do you want this to go in, 
too?  (I just can't see the connection to the other change at the moment.)

Cheers,
Daniel

-- 
Done:     Arc-Bar-Cav-Sam-Val-Wiz, Dwa-Elf-Gno-Hum-Orc, Law-Neu-Cha, Fem-Mal
To go:    Hea-Kni-Mon-Pri-Ran-Rog-Tou