gcc/fortran/resolve.c

237       sym->attr.pure = ifc->attr.pure;
398 				    " of pure function %qs at %L with VALUE "
402 		    gfc_error ("Argument %qs of pure function %qs at %L must "
411 				    " of pure subroutine %qs at %L with VALUE "
415 		    gfc_error ("Argument %qs of pure subroutine %qs at %L "
425 	      gfc_error ("INTENT(OUT) argument %qs of pure procedure %qs at %L"
1856   sym->attr.pure = isym->pure;
3002 /* Figure out if a function reference is pure or not.  Also set the name
3011   int pure;
3024       pure = gfc_pure (comp->ts.interface);
3029       pure = gfc_pure (e->value.function.esym);
3034       pure = e->value.function.isym->pure
3040       /* Implicit functions are not pure.  */
3041       pure = 0;
3045   return pure;
3049 /* Check if the expression is a reference to an implicitly pure function.  */
3868       sym->attr.pure = 1;
10985 	    gfc_error ("In a pure subprogram an INTENT(IN) dummy argument "
13172      or pure.  ....snip... A character value of * may only be used in the
13181 	  || (sym->attr.recursive) || (sym->attr.pure))
13191 	  if (sym->attr.pure)
13193 		       "pure", sym->name, &sym->declared_at);
13378       if (sym->attr.pure != iface->attr.pure)
14484           c->attr.pure = ifc->attr.pure;
16517 /* 12.6 Constraint: In a pure subprogram any variable which is in common or
16518    accessed by host or use association, is a dummy argument to a pure function,
16519    is a dummy argument with INTENT (IN) to a pure subroutine, or an object that
16523 /* Determines if a variable is not 'pure', i.e., not assignable within a pure
16535   /* Check if the symbol's ns is inside the pure procedure.  */
16558 /* Test whether a symbol is pure or not.  For a NULL pointer, checks if the
16559    current namespace is inside a pure procedure.  */
16570 	belongs to a pure procedure.  */
16577 	  if (attr.flavor == FL_PROCEDURE && attr.pure)
16585   return attr.flavor == FL_PROCEDURE && attr.pure;
16589 /* Test whether a symbol is implicitly pure or not.  For a NULL pointer,
16590    checks if the current namespace is implicitly pure.  Note that this
16614     && !sym->attr.pure;
16641     sym->attr.pure = 0;
16928 	  && sym->ns->proc_name->attr.pure
16931 	  /* Need to check for symbols that may have entered the pure
16945 		       "EQUIVALENCE object in the pure procedure %qs",