5174   gfc_expr *new_expr;  in gfc_convert_type_warn()  local
5312   new_expr = gfc_get_expr ();  in gfc_convert_type_warn()
5313   *new_expr = *expr;  in gfc_convert_type_warn()
5315   new_expr = gfc_build_conversion (new_expr);  in gfc_convert_type_warn()
5316   new_expr->value.function.name = sym->lib_name;  in gfc_convert_type_warn()
5317   new_expr->value.function.isym = sym;  in gfc_convert_type_warn()
5318   new_expr->where = old_where;  in gfc_convert_type_warn()
5319   new_expr->ts = *ts;  in gfc_convert_type_warn()
5320   new_expr->rank = rank;  in gfc_convert_type_warn()
5321   new_expr->shape = gfc_copy_shape (shape, rank);  in gfc_convert_type_warn()
5323   gfc_get_ha_sym_tree (sym->name, &new_expr->symtree);  in gfc_convert_type_warn()
5324   new_expr->symtree->n.sym->result = new_expr->symtree->n.sym;  in gfc_convert_type_warn()
5325   new_expr->symtree->n.sym->ts.type = ts->type;  in gfc_convert_type_warn()
5326   new_expr->symtree->n.sym->ts.kind = ts->kind;  in gfc_convert_type_warn()
5327   new_expr->symtree->n.sym->attr.flavor = FL_PROCEDURE;  in gfc_convert_type_warn()
5328   new_expr->symtree->n.sym->attr.function = 1;  in gfc_convert_type_warn()
5329   new_expr->symtree->n.sym->attr.elemental = 1;  in gfc_convert_type_warn()
5330   new_expr->symtree->n.sym->attr.pure = 1;  in gfc_convert_type_warn()
5331   new_expr->symtree->n.sym->attr.referenced = 1;  in gfc_convert_type_warn()
5332   gfc_intrinsic_symbol(new_expr->symtree->n.sym);  in gfc_convert_type_warn()
5333   gfc_commit_symbol (new_expr->symtree->n.sym);  in gfc_convert_type_warn()
5335   *expr = *new_expr;  in gfc_convert_type_warn()
5337   free (new_expr);  in gfc_convert_type_warn()
5372   gfc_expr *new_expr;  in gfc_convert_chartype()  local
5386   new_expr = gfc_get_expr ();  in gfc_convert_chartype()
5387   *new_expr = *expr;  in gfc_convert_chartype()
5389   new_expr = gfc_build_conversion (new_expr);  in gfc_convert_chartype()
5390   new_expr->value.function.name = sym->lib_name;  in gfc_convert_chartype()
5391   new_expr->value.function.isym = sym;  in gfc_convert_chartype()
5392   new_expr->where = old_where;  in gfc_convert_chartype()
5393   new_expr->ts = *ts;  in gfc_convert_chartype()
5394   new_expr->rank = rank;  in gfc_convert_chartype()
5395   new_expr->shape = gfc_copy_shape (shape, rank);  in gfc_convert_chartype()
5397   gfc_get_ha_sym_tree (sym->name, &new_expr->symtree);  in gfc_convert_chartype()
5398   new_expr->symtree->n.sym->ts.type = ts->type;  in gfc_convert_chartype()
5399   new_expr->symtree->n.sym->ts.kind = ts->kind;  in gfc_convert_chartype()
5400   new_expr->symtree->n.sym->attr.flavor = FL_PROCEDURE;  in gfc_convert_chartype()
5401   new_expr->symtree->n.sym->attr.function = 1;  in gfc_convert_chartype()
5402   new_expr->symtree->n.sym->attr.elemental = 1;  in gfc_convert_chartype()
5403   new_expr->symtree->n.sym->attr.referenced = 1;  in gfc_convert_chartype()
5404   gfc_intrinsic_symbol(new_expr->symtree->n.sym);  in gfc_convert_chartype()
5405   gfc_commit_symbol (new_expr->symtree->n.sym);  in gfc_convert_chartype()
5407   *expr = *new_expr;  in gfc_convert_chartype()
5409   free (new_expr);  in gfc_convert_chartype()