diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2012-08-02 18:30:02 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2012-08-02 18:30:02 +0000 |
| commit | 328ece7de3d6903fd6e2c909e1efe1eea59fc8ec (patch) | |
| tree | f10adb4ae49ac21653756591623e2d9073bbf81f /gcc/fortran/expr.c | |
| parent | a8da72b86c262f75d65665c3803a658d8089a679 (diff) | |
| download | gcc-328ece7de3d6903fd6e2c909e1efe1eea59fc8ec.zip gcc-328ece7de3d6903fd6e2c909e1efe1eea59fc8ec.tar.gz gcc-328ece7de3d6903fd6e2c909e1efe1eea59fc8ec.tar.bz2 | |
array.c (gfc_copy_array_ref): Don't copy the offset field.
* array.c (gfc_copy_array_ref): Don't copy the offset field.
* expr.c (find_array_section): Ignore the offset field.
* trans-expr.c (gfc_find_interface_mapping_to_ref): Don't apply
any interface mapping to the offset field.
* gfortran.h (struct gfc_array_ref): Remove the offset field.
From-SVN: r190092
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 3a3ba9a..aeb224f 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1490,13 +1490,10 @@ find_array_section (gfc_expr *expr, gfc_ref *ref) /* Now clock through the array reference, calculating the index in the source constructor and transferring the elements to the new - constructor. */ + constructor. */ for (idx = 0; idx < (int) mpz_get_si (nelts); idx++) { - if (ref->u.ar.offset) - mpz_set (ptr, ref->u.ar.offset->value.integer); - else - mpz_init_set_ui (ptr, 0); + mpz_init_set_ui (ptr, 0); incr_ctr = true; for (d = 0; d < rank; d++) |