Searched refs:len_expr (Results 1 – 1 of 1) sorted by relevance
4559 gfc_expr *len_expr = gfc_copy_expr (e); in gfc_simplify_len() local4560 gfc_free_ref_list (len_expr->ref); in gfc_simplify_len()4561 len_expr->ref = NULL; in gfc_simplify_len()4562 gfc_find_component (len_expr->symtree->n.sym->ts.u.derived, e->ref in gfc_simplify_len()4565 false, true, &len_expr->ref); in gfc_simplify_len()4566 len_expr->ts = len_expr->ref->u.c.component->ts; in gfc_simplify_len()4567 return len_expr; in gfc_simplify_len()