https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96320
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|WAITING |NEW
Priority|P3 |P4
--- Comment #5 from kargl at gcc dot gnu.org ---
May be better patch.
Index: gcc/fortran/resolve.c
===================================================================
@@ -13241,6 +13253,9 @@ resolve_fl_procedure (gfc_symbol *sym, int mp_flag)
}
check_formal:
+ if (iface && !iface->formal)
+ return true;
+
/* Check the characteristics of the formal arguments. */
if (sym->formal && sym->formal_ns)
{
