Lines Matching refs:pure
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",