11146   gfc_code *this_code;  in build_assignment()  local
11148   this_code = gfc_get_code (op);  in build_assignment()
11149   this_code->next = NULL;  in build_assignment()
11150   this_code->expr1 = gfc_copy_expr (expr1);  in build_assignment()
11151   this_code->expr2 = gfc_copy_expr (expr2);  in build_assignment()
11152   this_code->loc = loc;  in build_assignment()
11155       add_comp_ref (this_code->expr1, comp1);  in build_assignment()
11156       add_comp_ref (this_code->expr2, comp2);  in build_assignment()
11159   return this_code;  in build_assignment()
11258 add_code_to_chain (gfc_code **this_code, gfc_code **head, gfc_code **tail)  in add_code_to_chain()  argument
11260   gcc_assert (this_code);  in add_code_to_chain()
11262     *head = *tail = *this_code;  in add_code_to_chain()
11264     *tail = gfc_append_code (*tail, *this_code);  in add_code_to_chain()
11265   *this_code = NULL;  in add_code_to_chain()
11357   gfc_code *this_code = NULL, *head = NULL, *tail = NULL;  in generate_component_assignments()  local
11390       this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11394       add_code_to_chain (&this_code, &tmp_head, &tmp_tail);  in generate_component_assignments()
11404       this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11407       add_code_to_chain (&this_code, &head, &tail);  in generate_component_assignments()
11429       this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11436       gfc_resolve_code (this_code, ns);  in generate_component_assignments()
11438       if (this_code->op == EXEC_ASSIGN_CALL)  in generate_component_assignments()
11451 	      gfc_free_statements (this_code);  in generate_component_assignments()
11452 	      this_code = NULL;  in generate_component_assignments()
11458 	  rsym = this_code->resolved_sym;  in generate_component_assignments()
11497 	      gfc_free_expr (this_code->ext.actual->expr);  in generate_component_assignments()
11498 	      this_code->ext.actual->expr = gfc_copy_expr (t1);  in generate_component_assignments()
11499 	      add_comp_ref (this_code->ext.actual->expr, comp1);  in generate_component_assignments()
11529       else if (this_code->op == EXEC_ASSIGN && !this_code->next)  in generate_component_assignments()
11533 	  gfc_free_statements (this_code);  in generate_component_assignments()
11534 	  this_code = NULL;  in generate_component_assignments()
11538       add_code_to_chain (&this_code, &head, &tail);  in generate_component_assignments()
11543 	  this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11546 	  add_code_to_chain (&this_code, &head, &tail);  in generate_component_assignments()
11607   gfc_code *this_code;  in resolve_ptr_fcn_assign()  local
11644   this_code = build_assignment (EXEC_ASSIGN,  in resolve_ptr_fcn_assign()
11647   this_code->next = (*code)->next;  in resolve_ptr_fcn_assign()
11648   (*code)->next = this_code;  in resolve_ptr_fcn_assign()
11665   gfc_code *this_code;  in deferred_op_assign()  local
11690   this_code = build_assignment (EXEC_ASSIGN,  in deferred_op_assign()
11697   this_code->next = (*code)->next;  in deferred_op_assign()
11698   (*code)->next = this_code;  in deferred_op_assign()