Lines Matching refs:ss_array
2135 gfc_array_info *ss_array; in transfer_array_component() local
2147 ss_array = &ss->info->data.array; in transfer_array_component()
2150 ss_array->shape = NULL; in transfer_array_component()
2152 ss_array->shape = gfc_get_shape (cm->as->rank); in transfer_array_component()
2154 ss_array->descriptor = expr; in transfer_array_component()
2155 ss_array->data = gfc_conv_array_data (expr); in transfer_array_component()
2156 ss_array->offset = gfc_conv_array_offset (expr); in transfer_array_component()
2159 ss_array->start[n] = gfc_conv_array_lbound (expr, n); in transfer_array_component()
2160 ss_array->stride[n] = gfc_index_one_node; in transfer_array_component()
2163 ss_array->end[n] = gfc_conv_array_ubound (expr, n); in transfer_array_component()
2166 mpz_init (ss_array->shape[n]); in transfer_array_component()
2167 mpz_sub (ss_array->shape[n], cm->as->upper[n]->value.integer, in transfer_array_component()
2169 mpz_add_ui (ss_array->shape[n], ss_array->shape[n], 1); in transfer_array_component()
2207 gcc_assert (ss_array->shape != NULL); in transfer_array_component()
2208 gfc_free_shape (&ss_array->shape, cm->as->rank); in transfer_array_component()