X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=gcc%2Ffortran%2Fdecl.c;h=f11bcb024fa173afdd9cb18a8b67e3e4554bbcf3;hb=73e42eef1617bcfa5b333bdb563efeea1626d112;hp=e7c06f3855bd8416d541bb724c9bf9bf58e3f39f;hpb=daa38cc13da3de5a9216d5e8f05736b326ac14ae;p=gcc.git

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index e7c06f3855b..f11bcb024fa 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -5284,7 +5284,7 @@ gfc_match_procedure (void)
    parser-state-stack to find out whether we're in a module.  */
 
 static void
-warn_intrinsic_shadow (const gfc_symbol* sym, bool func)
+do_warn_intrinsic_shadow (const gfc_symbol* sym, bool func)
 {
   bool in_module;
 
@@ -5420,7 +5420,7 @@ gfc_match_function_decl (void)
 	}
 
       /* Warn if this procedure has the same name as an intrinsic.  */
-      warn_intrinsic_shadow (sym, true);
+      do_warn_intrinsic_shadow (sym, true);
 
       return MATCH_YES;
     }
@@ -5851,7 +5851,7 @@ gfc_match_subroutine (void)
     return MATCH_ERROR;
 
   /* Warn if it has the same name as an intrinsic.  */
-  warn_intrinsic_shadow (sym, false);
+  do_warn_intrinsic_shadow (sym, false);
 
   return MATCH_YES;
 }