diff options
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index fcbb850..0ab4637 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -320,7 +320,7 @@ gfc_build_array_ref (tree base, tree offset, tree decl) { gcc_assert (GFC_TYPE_ARRAY_CORANK (type) > 0); - return fold_convert (TREE_TYPE (type), base); + return fold_convert (TYPE_MAIN_VARIANT (type), base); } gcc_assert (TREE_CODE (type) == ARRAY_TYPE); |