[Bug fortran/86888] [F08] allocatable components of indirectly recursive type

[janus at gcc dot gnu.org]

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)