1600   gfc_code *last_code, *block;  in generate_finalization_wrapper()  local
1830   last_code = gfc_get_code (EXEC_ASSIGN);  in generate_finalization_wrapper()
1831   last_code->expr1 = gfc_lval_expr_from_sym (final);  in generate_finalization_wrapper()
1832   last_code->expr2 = gfc_get_int_expr (4, NULL, 0);  in generate_finalization_wrapper()
1833   sub_ns->code = last_code;  in generate_finalization_wrapper()
1836   last_code->next = gfc_get_code (EXEC_ASSIGN);  in generate_finalization_wrapper()
1837   last_code = last_code->next;  in generate_finalization_wrapper()
1838   last_code->expr1 = gfc_lval_expr_from_sym (is_contiguous);  in generate_finalization_wrapper()
1839   last_code->expr2 = gfc_get_logical_expr (gfc_default_logical_kind,  in generate_finalization_wrapper()
1843   last_code->next = gfc_get_code (EXEC_ASSIGN);  in generate_finalization_wrapper()
1844   last_code = last_code->next;  in generate_finalization_wrapper()
1845   last_code->expr1 = gfc_lval_expr_from_sym (sizes);  in generate_finalization_wrapper()
1846   last_code->expr1->ref = gfc_get_ref ();  in generate_finalization_wrapper()
1847   last_code->expr1->ref->type = REF_ARRAY;  in generate_finalization_wrapper()
1848   last_code->expr1->ref->u.ar.type = AR_ELEMENT;  in generate_finalization_wrapper()
1849   last_code->expr1->ref->u.ar.dimen = 1;  in generate_finalization_wrapper()
1850   last_code->expr1->ref->u.ar.dimen_type[0] = DIMEN_ELEMENT;  in generate_finalization_wrapper()
1851   last_code->expr1->ref->u.ar.start[0]  in generate_finalization_wrapper()
1853   last_code->expr1->ref->u.ar.as = sizes->as;  in generate_finalization_wrapper()
1854   last_code->expr2 = gfc_get_int_expr (gfc_default_integer_kind, NULL, 1);  in generate_finalization_wrapper()
1869   last_code->next = gfc_get_code (EXEC_DO);  in generate_finalization_wrapper()
1870   last_code = last_code->next;  in generate_finalization_wrapper()
1871   last_code->ext.iterator = iter;  in generate_finalization_wrapper()
1872   last_code->block = gfc_get_code (EXEC_DO);  in generate_finalization_wrapper()
1875   last_code->block->next = gfc_get_code (EXEC_ASSIGN);  in generate_finalization_wrapper()
1876   block = last_code->block->next;  in generate_finalization_wrapper()
2002   last_code->next = gfc_get_code (EXEC_ASSIGN);  in generate_finalization_wrapper()
2003   last_code = last_code->next;  in generate_finalization_wrapper()
2005   last_code->expr1 = gfc_lval_expr_from_sym (nelem);  in generate_finalization_wrapper()
2007   last_code->expr2 = gfc_get_expr ();  in generate_finalization_wrapper()
2008   last_code->expr2->expr_type = EXPR_OP;  in generate_finalization_wrapper()
2009   last_code->expr2->value.op.op = INTRINSIC_MINUS;  in generate_finalization_wrapper()
2010   last_code->expr2->value.op.op2  in generate_finalization_wrapper()
2012   last_code->expr2->ts = last_code->expr2->value.op.op2->ts;  in generate_finalization_wrapper()
2013   last_code->expr2->where = gfc_current_locus;  in generate_finalization_wrapper()
2015   last_code->expr2->value.op.op1 = gfc_lval_expr_from_sym (sizes);  in generate_finalization_wrapper()
2016   last_code->expr2->value.op.op1->ref = gfc_get_ref ();  in generate_finalization_wrapper()
2017   last_code->expr2->value.op.op1->ref->type = REF_ARRAY;  in generate_finalization_wrapper()
2018   last_code->expr2->value.op.op1->ref->u.ar.type = AR_ELEMENT;  in generate_finalization_wrapper()
2019   last_code->expr2->value.op.op1->ref->u.ar.dimen = 1;  in generate_finalization_wrapper()
2020   last_code->expr2->value.op.op1->ref->u.ar.dimen_type[0] = DIMEN_ELEMENT;  in generate_finalization_wrapper()
2021   last_code->expr2->value.op.op1->ref->u.ar.start[0] = gfc_copy_expr (rank);  in generate_finalization_wrapper()
2022   last_code->expr2->value.op.op1->ref->u.ar.as = sizes->as;  in generate_finalization_wrapper()
2056       last_code->next = gfc_get_code (EXEC_SELECT);  in generate_finalization_wrapper()
2057       last_code = last_code->next;  in generate_finalization_wrapper()
2058       last_code->expr1 = gfc_copy_expr (rank);  in generate_finalization_wrapper()
2079 	      last_code->block = block;  in generate_finalization_wrapper()
2121 	      last_code->block = block;  in generate_finalization_wrapper()
2194       last_code->next = gfc_get_code (EXEC_DO);  in generate_finalization_wrapper()
2195       last_code = last_code->next;  in generate_finalization_wrapper()
2196       last_code->ext.iterator = iter;  in generate_finalization_wrapper()
2197       last_code->block = gfc_get_code (EXEC_DO);  in generate_finalization_wrapper()
2201 				       byte_stride, rank, last_code->block,  in generate_finalization_wrapper()
2220 	  if (!last_code->block->next)  in generate_finalization_wrapper()
2221 	    last_code->block->next = block;  in generate_finalization_wrapper()
2229       last_code->next = gfc_get_code (EXEC_CALL);  in generate_finalization_wrapper()
2230       last_code = last_code->next;  in generate_finalization_wrapper()
2231       last_code->symtree = ancestor_wrapper->symtree;  in generate_finalization_wrapper()
2232       last_code->resolved_sym = ancestor_wrapper->symtree->n.sym;  in generate_finalization_wrapper()
2234       last_code->ext.actual = gfc_get_actual_arglist ();  in generate_finalization_wrapper()
2235       last_code->ext.actual->expr = gfc_lval_expr_from_sym (array);  in generate_finalization_wrapper()
2236       last_code->ext.actual->next = gfc_get_actual_arglist ();  in generate_finalization_wrapper()
2237       last_code->ext.actual->next->expr = gfc_lval_expr_from_sym (byte_stride);  in generate_finalization_wrapper()
2238       last_code->ext.actual->next->next = gfc_get_actual_arglist ();  in generate_finalization_wrapper()
2239       last_code->ext.actual->next->next->expr  in generate_finalization_wrapper()