http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59023

--- Comment #9 from janus at gcc dot gnu.org ---
The following patch is more reasonable, I think:


Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c    (revision 206252)
+++ gcc/fortran/resolve.c    (working copy)
@@ -2360,7 +2360,7 @@ resolve_global_procedure (gfc_symbol *sym, locus *
       gfc_symbol *def_sym;

       /* Resolve the gsymbol namespace if needed.  */
-      if (!gsym->ns->resolved)
+      if (!gsym->ns->resolved && !gsym->binding_label)
     {
       gfc_dt_list *old_dt_list;
       struct gfc_omp_saved_state old_omp_state;


However, it regresses on value_tests_f03.f90.

Reply via email to