Searched refs:fts (Results 1 - 2 of 2) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Dcheck.c403 gfc_typespec *fts = &f->ts; local
408 fts = &f->symtree->n.sym->ts;
410 if (gfc_compare_types (ets, fts))
H A Dresolve.c755 gfc_typespec *ts, *fts; local
761 fts = &ns->entries->sym->result->ts;
762 if (fts->type == BT_UNKNOWN)
763 fts = gfc_get_default_type (ns->entries->sym->result->name, NULL);
772 if (! gfc_compare_types (ts, fts)
787 else if (ts->type == BT_CHARACTER && ts->u.cl && fts->u.cl
788 && (((ts->u.cl->length && !fts->u.cl->length)
789 ||(!ts->u.cl->length && fts->u.cl->length))
792 != fts->u.cl->length->expr_type)
796 fts
[all...]

Completed in 177 milliseconds