1338   gfc_symbol *tmp_array, *ptr2;  in finalizer_insert_packed_call()  local
1456   gfc_get_symbol ("tmp_array", ns, &tmp_array);  in finalizer_insert_packed_call()
1457   tmp_array->ts.type = BT_DERIVED;  in finalizer_insert_packed_call()
1458   tmp_array->ts.u.derived = array->ts.u.derived;  in finalizer_insert_packed_call()
1459   tmp_array->attr.flavor = FL_VARIABLE;  in finalizer_insert_packed_call()
1460   tmp_array->attr.dimension = 1;  in finalizer_insert_packed_call()
1461   tmp_array->attr.artificial = 1;  in finalizer_insert_packed_call()
1462   tmp_array->as = gfc_get_array_spec();  in finalizer_insert_packed_call()
1463   tmp_array->attr.intent = INTENT_INOUT;  in finalizer_insert_packed_call()
1464   tmp_array->as->type = AS_EXPLICIT;  in finalizer_insert_packed_call()
1465   tmp_array->as->rank = fini->proc_tree->n.sym->formal->sym->as->rank;  in finalizer_insert_packed_call()
1467   for (i = 0; i < tmp_array->as->rank; i++)  in finalizer_insert_packed_call()
1470       tmp_array->as->lower[i] = gfc_get_int_expr (gfc_default_integer_kind,  in finalizer_insert_packed_call()
1483       tmp_array->as->upper[i] = shape_expr;  in finalizer_insert_packed_call()
1485   gfc_set_sym_referenced (tmp_array);  in finalizer_insert_packed_call()
1486   gfc_commit_symbol (tmp_array);  in finalizer_insert_packed_call()
1520   block2->next = finalization_scalarizer (tmp_array, ptr2, offset2, sub_ns);  in finalizer_insert_packed_call()
1535   block->ext.actual->expr = gfc_lval_expr_from_sym (tmp_array);  in finalizer_insert_packed_call()
1565   block2->next = finalization_scalarizer (tmp_array, ptr2,  in finalizer_insert_packed_call()