diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 1384bc7..0329883 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -5864,8 +5864,7 @@ gfc_match_data_decl (void) if (current_attr.pointer && gfc_comp_struct (gfc_current_state ())) goto ok; - if (current_attr.allocatable && gfc_current_state () == COMP_DERIVED - && current_ts.u.derived == gfc_current_block ()) + if (current_attr.allocatable && gfc_current_state () == COMP_DERIVED) goto ok; gfc_find_symbol (current_ts.u.derived->name, |