Searched refs:mold_element (Results 1 – 2 of 2) sorted by relevance
8097 gfc_expr *mold_element; in gfc_simplify_transfer() local8126 mold_element = (mold->expr_type == EXPR_ARRAY && mold->value.constructor) in gfc_simplify_transfer()8133 if (result->ts.type == BT_CHARACTER && gfc_is_constant_expr (mold_element)) in gfc_simplify_transfer()8135 result->value.character.length = mold_element->value.character.length; in gfc_simplify_transfer()8139 if (mold_element->ts.u.cl->length) in gfc_simplify_transfer()8140 result->ts.u.cl->length = gfc_copy_expr (mold_element->ts.u.cl->length); in gfc_simplify_transfer()8144 mold_element->value.character.length); in gfc_simplify_transfer()
7954 gfc_expr *mold_element; in gfc_simplify_transfer() local7983 mold_element = (mold->expr_type == EXPR_ARRAY && mold->value.constructor) in gfc_simplify_transfer()7990 if (result->ts.type == BT_CHARACTER && gfc_is_constant_expr (mold_element)) in gfc_simplify_transfer()7992 result->value.character.length = mold_element->value.character.length; in gfc_simplify_transfer()7996 if (mold_element->ts.u.cl->length) in gfc_simplify_transfer()7997 result->ts.u.cl->length = gfc_copy_expr (mold_element->ts.u.cl->length); in gfc_simplify_transfer()8001 mold_element->value.character.length); in gfc_simplify_transfer()