diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2018-01-30 23:57:51 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2018-01-30 23:57:51 +0100 |
| commit | f2adfb898bc52d3b83efbe03a94df4d6bc8663ad (patch) | |
| tree | 94c3a56261e53565e51df821bad3fceea869bf53 /gcc/fortran/trans-array.c | |
| parent | 8fb2cc6b24b32595ad1e50ef38a3847799574290 (diff) | |
| download | gcc-f2adfb898bc52d3b83efbe03a94df4d6bc8663ad.zip gcc-f2adfb898bc52d3b83efbe03a94df4d6bc8663ad.tar.gz gcc-f2adfb898bc52d3b83efbe03a94df4d6bc8663ad.tar.bz2 | |
re PR debug/84131 (Fortran dynamical array debug info)
PR debug/84131
* trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
From-SVN: r257212
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index c16b875..4070341 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -511,7 +511,7 @@ gfc_get_descriptor_offsets_for_info (const_tree desc_type, tree *data_off, tree type; type = TYPE_MAIN_VARIANT (desc_type); - field = gfc_advance_chain (TYPE_FIELDS (type), OFFSET_FIELD); + field = gfc_advance_chain (TYPE_FIELDS (type), DATA_FIELD); *data_off = byte_position (field); field = gfc_advance_chain (TYPE_FIELDS (type), DTYPE_FIELD); *dtype_off = byte_position (field); |