Fortran: This patch fixes comments 23 and 24 of PR96320.

[gcc.git] / gcc / fortran / resolve.c

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index bb069efef032be2328f02edcebbf363349e6f543..c075d0fa0c4269c1fe81e1833371f322a32b9cca 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -14025,7 +14025,8 @@ resolve_typebound_procedure (gfc_symtree* stree)
       /* Check for F08:C465.  */
       if ((!proc->attr.subroutine && !proc->attr.function)
          || (proc->attr.proc != PROC_MODULE
-             && proc->attr.if_source != IFSRC_IFBODY)
+             && proc->attr.if_source != IFSRC_IFBODY
+             && !proc->attr.module_procedure)
          || proc->attr.abstract)
        {
          gfc_error ("%qs must be a module procedure or an external "