Lines Matching refs:lss_array
7945 gfc_array_info *lss_array; in gfc_trans_subarray_assign() local
7969 lss_array = &lss->info->data.array; in gfc_trans_subarray_assign()
7970 lss_array->shape = gfc_get_shape (cm->as->rank); in gfc_trans_subarray_assign()
7971 lss_array->descriptor = dest; in gfc_trans_subarray_assign()
7972 lss_array->data = gfc_conv_array_data (dest); in gfc_trans_subarray_assign()
7973 lss_array->offset = gfc_conv_array_offset (dest); in gfc_trans_subarray_assign()
7976 lss_array->start[n] = gfc_conv_array_lbound (dest, n); in gfc_trans_subarray_assign()
7977 lss_array->stride[n] = gfc_index_one_node; in gfc_trans_subarray_assign()
7979 mpz_init (lss_array->shape[n]); in gfc_trans_subarray_assign()
7980 mpz_sub (lss_array->shape[n], cm->as->upper[n]->value.integer, in gfc_trans_subarray_assign()
7982 mpz_add_ui (lss_array->shape[n], lss_array->shape[n], 1); in gfc_trans_subarray_assign()
8025 gcc_assert (lss_array->shape != NULL); in gfc_trans_subarray_assign()
8026 gfc_free_shape (&lss_array->shape, cm->as->rank); in gfc_trans_subarray_assign()