[Bug fortran/85395] [F03] private clause contained in derived type acquires spurious scope

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85395

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org

--- Comment #4 from janus at gcc dot gnu.org ---
The problem can be fixed with this patch:


diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index 13cc6f5fccd..5f0d181d728 100644
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -3267,6 +3267,7 @@ parse_derived (void)
   push_state (&s, COMP_DERIVED, gfc_new_block);

   gfc_new_block->component_access = ACCESS_PUBLIC;
+  gfc_typebound_default_access = ACCESS_PUBLIC;
   seen_private = 0;
   seen_sequence = 0;
   seen_component = 0;


I'm not sure if this is the best way to fix it, though.