18 lines
715 B
Diff
18 lines
715 B
Diff
2018-01-30 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
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.
|
|
|
|
--- gcc/fortran/trans-array.c.jj 2018-01-26 12:43:25.164922494 +0100
|
|
+++ gcc/fortran/trans-array.c 2018-01-30 19:34:01.844232363 +0100
|
|
@@ -511,7 +511,7 @@ gfc_get_descriptor_offsets_for_info (con
|
|
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);
|