gcc/fortran/symbol.c

214 /* Given a symbol, return a pointer to the typespec for its default type.  */
238 /* Given a pointer to a symbol, set its type according to the first
327 	      proc->attr.pointer = proc->result->attr.pointer;
359   static const char *dummy = "DUMMY", *save = "SAVE", *pointer = "POINTER",
385   if (attr->pointer && attr->intent != INTENT_UNKNOWN)
387       a1 = pointer;
393   if (attr->in_namelist && (attr->allocatable || attr->pointer))
396       a2 = attr->allocatable ? allocatable : pointer;
470   conf (pointer, target);
471   conf (pointer, intrinsic);
472   conf (pointer, elemental);
473   conf (pointer, codimension);
489 					     "Procedure pointer at %C"))
492   conf (allocatable, pointer);
507   conf (in_equivalence, pointer);
534   /* Cray pointer/pointee conflicts.  */
539   conf (cray_pointer, pointer);
557   conf (cray_pointee, pointer);
569   conf (value, pointer)
641       conf2 (pointer);
724       conf2 (pointer);
753       conf2 (pointer);
986   if (attr->pointer && attr->if_source != IFSRC_IFBODY)
988       attr->pointer = 0;
1042   if (attr->pointer && !(attr->if_source == IFSRC_IFBODY
1054     attr->pointer = 1;
1081       gfc_error ("Cray Pointee at %L appears in multiple pointer()"
1786   if (src->pointer && !gfc_add_pointer (dest, where))
1888    already present.  On success, the component pointer is modified to
1970    This subroutine takes a pointer to a symbol node and returns a
1971    pointer to the translated node or NULL for an error.  Usually there
2038    component structure.  Returns the NULL pointer if the component is
2168 /* Given a label number, search for and return a pointer to the label
3052 /* Given a change set pointer, free its target's contents and update it with
3699   if (sym->attr.pointer || sym->attr.allocatable)
3901       if (curr_comp->attr.pointer != 0)
3913 	  gfc_error_1 ("Procedure pointer component '%s' at %L cannot be a member"
4614 /* Check if an associate-variable should be translated as an `implicit' pointer