Searched refs:lss_array (Results 1 – 2 of 2) sorted by relevance
7945 gfc_array_info *lss_array; in gfc_trans_subarray_assign() local7969 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()[all …]
8488 gfc_array_info *lss_array; in gfc_trans_subarray_assign() local8512 lss_array = &lss->info->data.array; in gfc_trans_subarray_assign()8513 lss_array->shape = gfc_get_shape (cm->as->rank); in gfc_trans_subarray_assign()8514 lss_array->descriptor = dest; in gfc_trans_subarray_assign()8515 lss_array->data = gfc_conv_array_data (dest); in gfc_trans_subarray_assign()8516 lss_array->offset = gfc_conv_array_offset (dest); in gfc_trans_subarray_assign()8519 lss_array->start[n] = gfc_conv_array_lbound (dest, n); in gfc_trans_subarray_assign()8520 lss_array->stride[n] = gfc_index_one_node; in gfc_trans_subarray_assign()8522 mpz_init (lss_array->shape[n]); in gfc_trans_subarray_assign()8523 mpz_sub (lss_array->shape[n], cm->as->upper[n]->value.integer, in gfc_trans_subarray_assign()[all …]