11303   gfc_code *this_code;  in build_assignment()  local
11305   this_code = gfc_get_code (op);  in build_assignment()
11306   this_code->next = NULL;  in build_assignment()
11307   this_code->expr1 = gfc_copy_expr (expr1);  in build_assignment()
11308   this_code->expr2 = gfc_copy_expr (expr2);  in build_assignment()
11309   this_code->loc = loc;  in build_assignment()
11312       add_comp_ref (this_code->expr1, comp1);  in build_assignment()
11313       add_comp_ref (this_code->expr2, comp2);  in build_assignment()
11316   return this_code;  in build_assignment()
11417 add_code_to_chain (gfc_code **this_code, gfc_code **head, gfc_code **tail)  in add_code_to_chain()  argument
11419   gcc_assert (this_code);  in add_code_to_chain()
11421     *head = *tail = *this_code;  in add_code_to_chain()
11423     *tail = gfc_append_code (*tail, *this_code);  in add_code_to_chain()
11424   *this_code = NULL;  in add_code_to_chain()
11516   gfc_code *this_code = NULL, *head = NULL, *tail = NULL;  in generate_component_assignments()  local
11549       this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11553       add_code_to_chain (&this_code, &tmp_head, &tmp_tail);  in generate_component_assignments()
11563       this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11566       add_code_to_chain (&this_code, &head, &tail);  in generate_component_assignments()
11588       this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11595       gfc_resolve_code (this_code, ns);  in generate_component_assignments()
11597       if (this_code->op == EXEC_ASSIGN_CALL)  in generate_component_assignments()
11610 	      gfc_free_statements (this_code);  in generate_component_assignments()
11611 	      this_code = NULL;  in generate_component_assignments()
11617 	  rsym = this_code->resolved_sym;  in generate_component_assignments()
11656 	      gfc_free_expr (this_code->ext.actual->expr);  in generate_component_assignments()
11657 	      this_code->ext.actual->expr = gfc_copy_expr (t1);  in generate_component_assignments()
11658 	      add_comp_ref (this_code->ext.actual->expr, comp1);  in generate_component_assignments()
11688       else if (this_code->op == EXEC_ASSIGN && !this_code->next)  in generate_component_assignments()
11692 	  gfc_free_statements (this_code);  in generate_component_assignments()
11693 	  this_code = NULL;  in generate_component_assignments()
11697       add_code_to_chain (&this_code, &head, &tail);  in generate_component_assignments()
11702 	  this_code = build_assignment (EXEC_ASSIGN,  in generate_component_assignments()
11705 	  add_code_to_chain (&this_code, &head, &tail);  in generate_component_assignments()
11766   gfc_code *this_code;  in resolve_ptr_fcn_assign()  local
11803   this_code = build_assignment (EXEC_ASSIGN,  in resolve_ptr_fcn_assign()
11806   this_code->next = (*code)->next;  in resolve_ptr_fcn_assign()
11807   (*code)->next = this_code;  in resolve_ptr_fcn_assign()
11824   gfc_code *this_code;  in deferred_op_assign()  local
11849   this_code = build_assignment (EXEC_ASSIGN,  in deferred_op_assign()
11856   this_code->next = (*code)->next;  in deferred_op_assign()
11857   (*code)->next = this_code;  in deferred_op_assign()