Message ID | 20211119094025.GL2646553@tucnak |
---|---|
State | New |
Headers | show |
Series | fortran, debug: Fix up DW_AT_rank [PR103315] | expand |
Le 19/11/2021 à 10:40, Jakub Jelinek via Fortran a écrit : > > Bootstrapped/regtested on x86_64-linux and i686-linux, ok for trunk? > Hello, you know probably better than me or any fortran maintainer whether it’s good or bad. So OK from the fortran side.
--- gcc/fortran/trans-types.c.jj 2021-11-12 15:54:21.000000000 +0100 +++ gcc/fortran/trans-types.c 2021-11-18 15:13:45.131281198 +0100 @@ -3459,8 +3459,8 @@ gfc_get_array_descr_info (const_tree typ if (!integer_zerop (dtype_off)) t = fold_build_pointer_plus (t, rank_off); - t = build1 (NOP_EXPR, build_pointer_type (gfc_array_index_type), t); - t = build1 (INDIRECT_REF, gfc_array_index_type, t); + t = build1 (NOP_EXPR, build_pointer_type (TREE_TYPE (field)), t); + t = build1 (INDIRECT_REF, TREE_TYPE (field), t); info->rank = t; t = build0 (PLACEHOLDER_EXPR, TREE_TYPE (dim_off)); t = size_binop (MULT_EXPR, t, dim_size);