gcc/fortran/resolve.c

1198   comp = derived->components;
1279     comp = expr->ref->u.c.sym->components;
1281     comp = expr->ts.u.derived->components;
2836   /* Prevent crash when sym->ts.u.derived->components is not set due to previous
5937 	  c = ref2 ? ref2->u.c.component : e->symtree->n.sym->components;
7427    inaccessible, i.e. if it's defined in another module and the components are
7429    inaccessible components are found, nonzero otherwise.  */
7439   for (c = sym->components; c; c = c->next)
7568    components that need nullification.)  */
8093 	  /* TODO - check derived type components.  */
8909 	       && sym->components->ts.u.derived->attr.unlimited_polymorphic));
9098 		    ts = &ts->u.derived->components->ts;
9871    -- a derived type being transferred has only non-pointer components
9872    -- a derived type being transferred doesn't have private components, unless
9967 	 components unless it is processed by a defined input/output
9972 		     "components unless it is processed by a defined "
9981 		     "procedure pointer components", &code->loc);
9988 		     "components unless it is processed by a defined "
9993       /* C_PTR and C_FUNPTR have private components which means they cannot
9999 			       "cannot have PRIVATE components", &code->loc))
10005 		     "PRIVATE components unless it is processed by "
11278   for (c= derived->components; c; c = c->next)
11328       do over components with typebound defined assignment [%cmp]
11410   comp1 = (*code)->expr1->ts.u.derived->components;
11411   comp2 = (*code)->expr2->ts.u.derived->components;
11419 	 of all kinds and allocatable components.  */
11435 	 recurse into its components.  */
11476 		     that allocatable components with defined assignment are
11945 	  /* F03 7.4.1.3 for non-allocatable, non-pointer components.  */
12807      a hidden default for allocatable components.  */
13448   /* Ensure that derived-type components have a their finalizers resolved.  */
13450   for (c = derived->components; c; c = c->next)
13610   c = vtab->ts.u.derived->components->next->next->next->next->next;
14173   for (comp = resolve_bindings_derived->components; comp; comp = comp->next)
14333   for (c = derived->components; c; c = c->next)
14372   /* Do not allow vtype components to be resolved in nameless namespaces
14380   if ((!sym->attr.is_class || c != sym->components)
14510   /* Procedure pointer components: Check PASS arg.  */
14613         && (!sym->components->ts.u.derived->attr.extension
14614             || c != sym->components->ts.u.derived->components))
14616            && (!sym->attr.extension || c != sym->components)))
14627            && c == sym->components->ts.u.derived->components)
14628           || (!sym->attr.is_class && c == sym->components))
14745   /* Ensure that all the derived type components are put on the
14747      pointer components might not have been declared.  */
14750         && c->ts.u.derived->components
14789 /* Resolve the components of a structure type. Much less work than derived
14802       for (c = sym->components; c; c = c->next)
14817   for (c = sym->components; c; c = c->next)
14824   if (sym->components)
14831 /* Resolve the components of a derived type. This does not have to wait until
14869   c = (sym->attr.is_class) ? sym->components->ts.u.derived->components
14870 			   : sym->components;
14884       for (c = sym->components; c; c = c->next)
14973   if (sym->components == NULL && !sym->attr.zero_comp && !sym->attr.use_assoc)
15089 				  "or POINTER components", nl->sym->name,
15095 	  /* Types with private components that came here by USE-association.  */
15100 			 "components and cannot be member of namelist %qs at %L",
15105 	  /* Types with private components that are defined in the same module.  */
15110 	      gfc_error ("NAMELIST object %qs has PRIVATE components and "
15286   /* No symbol will ever have union type; only components can be unions.
15291   /* Coarrayed polymorphic objects with allocatable or pointer components are
15300       gfc_error ("Sorry, allocatable/pointer components in polymorphic (CLASS) "
15702 	  /* If type() declaration, we need to verify that the components
15742       && sym->ts.u.derived->components == NULL
15813       for (c = sym->ts.u.derived->components; c; c = c->next)
15918 		 "allocatable coarray or have coarray components",
16081 	   components.  */
16708       if (ts.u.derived->components == NULL)
16711       result = sequence_type (ts.u.derived->components->ts);
16712       for (c = ts.u.derived->components->next; c; c = c->next)
16760   gfc_component *c = derived->components;
16774   /* Shall not have allocatable components.  */
16778 		 "components to be an EQUIVALENCE object",sym->name,
16818    derived type shall not have components with default initialization nor
16966 	 precision real type, default logical type such that components of the
16983       msg = "Sequence %s with mixed components in EQUIVALENCE "