diff options
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 29a4d00..022ceb9 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -352,6 +352,9 @@ get_array_span (tree type, tree decl) else span = NULL_TREE; } + else if (TREE_CODE (decl) == INDIRECT_REF + && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (decl))) + span = gfc_conv_descriptor_span_get (decl); else span = NULL_TREE; |