diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2018-08-22 19:10:00 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2018-08-22 19:10:00 +0200 |
| commit | 00cad178a359da70204fe1ef4072f3bdbccb799c (patch) | |
| tree | f646b8c67f7b4755ed8483f32f8217ae818b106b /gcc/fortran/decl.c | |
| parent | b56b07639b1bd36383a0763ba80260c4858160ed (diff) | |
| download | gcc-00cad178a359da70204fe1ef4072f3bdbccb799c.zip gcc-00cad178a359da70204fe1ef4072f3bdbccb799c.tar.gz gcc-00cad178a359da70204fe1ef4072f3bdbccb799c.tar.bz2 | |
re PR fortran/86888 ([F08] allocatable components of indirectly recursive type)
fix PR 86888
2018-08-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/86888
* decl.c (gfc_match_data_decl): Allow allocatable components of
indirectly recursive type.
* resolve.c (resolve_component): Remove two errors messages ...
(resolve_fl_derived): ... and replace them by a new one.
2018-08-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/86888
* gfortran.dg/alloc_comp_basics_6.f90: Update an error message and add
an additional case.
* gfortran.dg/alloc_comp_basics_7.f90: New test case.
* gfortran.dg/class_17.f03: Update error message.
* gfortran.dg/class_55.f90: Ditto.
* gfortran.dg/dtio_11.f90: Update error messages.
* gfortran.dg/implicit_actual.f90: Add an error message.
* gfortran.dg/typebound_proc_12.f90: Update error message.
From-SVN: r263782
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, |