[Bug fortran/121139] gfortran rejects selector that is a type-bound function reference invoked on an associate name

[vehre at gcc dot gnu.org via Gcc-bugs]

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

Andre Vehreschild <vehre at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|unassigned at gcc dot gnu.org      |vehre at gcc dot gnu.org
             Status|UNCONFIRMED                 |NEW
                 CC|                            |vehre at gcc dot gnu.org
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2025-07-18

--- Comment #1 from Andre Vehreschild <vehre at gcc dot gnu.org> ---
First thing I encountered is, that contains_text is PRIVATE and that error
message is not emitted, but overriden. Making type bound procedure PUBLIC by
default does not resolve the issue completely. The third error message remains:

diff --git a/gcc/fortran/class.cc b/gcc/fortran/class.cc
index a1c6fafa75e..2282137b040 100644
--- a/gcc/fortran/class.cc
+++ b/gcc/fortran/class.cc
@@ -914,7 +914,8 @@ add_proc_comp (gfc_symbol *vtype, const char *name,
gfc_typebound_proc *tb)
       c->attr.procedure = 1;
       c->attr.proc_pointer = 1;
       c->attr.flavor = FL_PROCEDURE;
-      c->attr.access = ACCESS_PRIVATE;
+      c->attr.access = ACCESS_PUBLIC;
+      // PRIVATE;
       c->attr.external = 1;
       c->attr.untyped = 1;
       c->attr.if_source = IFSRC_IFBODY;