Lines Matching refs:ts1
686 gfc_compare_types (gfc_typespec *ts1, gfc_typespec *ts2)
692 if (ts1->type == BT_VOID || ts2->type == BT_VOID)
699 if (((ts1->type == BT_INTEGER && ts2->type == BT_DERIVED)
700 || (ts1->type == BT_DERIVED && ts2->type == BT_INTEGER))
701 && ts1->u.derived && ts2->u.derived
702 && ts1->u.derived == ts2->u.derived)
709 if (ts1->type == BT_CLASS && ts1->u.derived->components
710 && ((ts1->u.derived->attr.is_class
711 && ts1->u.derived->components->ts.u.derived->attr
713 || ts1->u.derived->attr.unlimited_polymorphic))
717 if (ts2->type == BT_CLASS && ts1->type == BT_DERIVED
723 && (ts1->u.derived->attr.sequence || ts1->u.derived->attr.is_bind_c))
726 if (ts1->type != ts2->type
727 && ((ts1->type != BT_DERIVED && ts1->type != BT_CLASS)
731 if (ts1->type == BT_UNION)
732 return compare_union_types (ts1->u.derived, ts2->u.derived);
734 if (ts1->type != BT_DERIVED && ts1->type != BT_CLASS)
735 return (ts1->kind == ts2->kind);
738 return gfc_type_compatible (ts1, ts2);