This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/86888] [F08] allocatable components of indirectly recursive type
- From: "janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 08 Aug 2018 11:52:16 +0000
- Subject: [Bug fortran/86888] [F08] allocatable components of indirectly recursive type
- Auto-submitted: auto-generated
- References: <bug-86888-4@http.gcc.gnu.org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86888
--- Comment #1 from janus at gcc dot gnu.org ---
Draft patch:
Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c (revision 263395)
+++ gcc/fortran/decl.c (working copy)
@@ -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,
Shows only one regression in the testsuite:
FAIL: gfortran.dg/alloc_comp_basics_6.f90 -O (test for errors, line 8)