Home | History | Annotate | Download | only in fortran

Lines Matching refs:comp1

11301 		  gfc_component *comp1, gfc_component *comp2, locus loc)
11310   if (comp1 && comp2)
11312       add_comp_ref (this_code->expr1, comp1);
11515   gfc_component *comp1, *comp2;
11569   comp1 = (*code)->expr1->ts.u.derived->components;
11573   for (; comp1; comp1 = comp1->next, comp2 = comp2->next)
11579       if (!gfc_bt_struct (comp1->ts.type)
11580 	  || comp1->attr.pointer
11581 	  || comp1->attr.allocatable
11582 	  || comp1->attr.proc_pointer_comp
11583 	  || comp1->attr.class_pointer
11584 	  || comp1->attr.proc_pointer)
11590 				    comp1, comp2, (*code)->loc);
11606 	  if (!(comp1->ts.u.derived->f2k_derived
11607 		&& comp1->ts.u.derived->f2k_derived
11658 	      add_comp_ref (this_code->ext.actual->expr, comp1);
11704 					comp1, comp2, (*code)->loc);