Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/interface.cc

Lines Matching refs:cmp1
475 compare_components (gfc_component *cmp1, gfc_component *cmp2,
479   if (!is_anonymous_component (cmp1) && !is_anonymous_component (cmp2)
480       && strcmp (cmp1->name, cmp2->name) != 0)
483   if (cmp1->attr.access != cmp2->attr.access)
486   if (cmp1->attr.pointer != cmp2->attr.pointer)
489   if (cmp1->attr.dimension != cmp2->attr.dimension)
492   if (cmp1->attr.allocatable != cmp2->attr.allocatable)
495   if (cmp1->attr.dimension && gfc_compare_array_spec (cmp1->as, cmp2->as) == 0)
498   if (cmp1->ts.type == BT_CHARACTER && cmp2->ts.type == BT_CHARACTER)
500       gfc_charlen *l1 = cmp1->ts.u.cl;
511   if (!(cmp1->ts.type == BT_DERIVED && derived1 == cmp1->ts.u.derived)
513       && !gfc_compare_types (&cmp1->ts, &cmp2->ts))
516   else if ( (cmp1->ts.type == BT_DERIVED && derived1 == cmp1->ts.u.derived)
520   else if (!(cmp1->ts.type == BT_DERIVED && derived1 == cmp1->ts.u.derived)
539   gfc_component *map1, *map2, *cmp1, *cmp2;
565       cmp1 = map1_t->components;
581 cmp1, cmp2, map1_t, map2_t))
584 	  cmp1 = cmp1->next;
587 	  if (cmp1 == NULL && cmp2 == NULL)
589 	  if (cmp1 == NULL || cmp2 == NULL)
613   gfc_component *cmp1, *cmp2;
670   cmp1 = derived1->components;
678       if (!compare_components (cmp1, cmp2, derived1, derived2))
681       cmp1 = cmp1->next;
684       if (cmp1 == NULL && cmp2 == NULL)
686       if (cmp1 == NULL || cmp2 == NULL)
OpenGrok
