Searched refs:old_cl (Results 1 – 4 of 4) sorted by relevance
3972 gfc_new_charlen (gfc_namespace *ns, gfc_charlen *old_cl) in gfc_new_charlen() argument3979 if (old_cl) in gfc_new_charlen()3981 cl->length = gfc_copy_expr (old_cl->length); in gfc_new_charlen()3982 cl->length_from_typespec = old_cl->length_from_typespec; in gfc_new_charlen()3983 cl->backend_decl = old_cl->backend_decl; in gfc_new_charlen()3984 cl->passed_length = old_cl->passed_length; in gfc_new_charlen()3985 cl->resolved = old_cl->resolved; in gfc_new_charlen()
1364 * symbol.c (gfc_new_charlen): Add argument 'old_cl' (to make a copy of
144 * symbol.c (gfc_new_charlen): If old_cl is non-NULL, put it
3954 gfc_new_charlen (gfc_namespace *ns, gfc_charlen *old_cl) in gfc_new_charlen() argument3961 if (old_cl) in gfc_new_charlen()3963 cl->length = gfc_copy_expr (old_cl->length); in gfc_new_charlen()3964 cl->length_from_typespec = old_cl->length_from_typespec; in gfc_new_charlen()3965 cl->backend_decl = old_cl->backend_decl; in gfc_new_charlen()3966 cl->passed_length = old_cl->passed_length; in gfc_new_charlen()3967 cl->resolved = old_cl->resolved; in gfc_new_charlen()