diff options
Diffstat (limited to 'gcc/fortran/resolve.cc')
| -rw-r--r-- | gcc/fortran/resolve.cc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc index f51674f..ce8261d 100644 --- a/gcc/fortran/resolve.cc +++ b/gcc/fortran/resolve.cc @@ -16765,6 +16765,7 @@ check_data_variable (gfc_data_variable *var, locus *where) ar_type mark = AR_UNKNOWN; int i; mpz_t section_index[GFC_MAX_DIMENSIONS]; + int vector_offset[GFC_MAX_DIMENSIONS]; gfc_ref *ref; gfc_array_ref *ar; gfc_symbol *sym; @@ -16888,7 +16889,7 @@ check_data_variable (gfc_data_variable *var, locus *where) case AR_SECTION: ar = &ref->u.ar; /* Get the start position of array section. */ - gfc_get_section_index (ar, section_index, &offset); + gfc_get_section_index (ar, section_index, &offset, vector_offset); mark = AR_SECTION; break; @@ -16971,7 +16972,7 @@ check_data_variable (gfc_data_variable *var, locus *where) /* Modify the array section indexes and recalculate the offset for next element. */ else if (mark == AR_SECTION) - gfc_advance_section (section_index, ar, &offset); + gfc_advance_section (section_index, ar, &offset, vector_offset); } } |