[Bug fortran/58099] [4.8/4.9 Regression] [F03] over-zealous procedure-pointer error checking

[janus at gcc dot gnu.org]

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

--- Comment #7 from janus at gcc dot gnu.org ---
The following patch makes the error go away, but (as expected) causes a failure
of proc_ptr_result_8.f90 in the testsuite ...


Index: gcc/fortran/expr.c
===================================================================
--- gcc/fortran/expr.c    (revision 201520)
+++ gcc/fortran/expr.c    (working copy)
@@ -3581,14 +3581,6 @@ gfc_check_pointer_assign (gfc_expr *lvalue, gfc_ex
       return false;
     }

-      if (!gfc_compare_interfaces (s2, s1, name, 0, 1,
-                   err, sizeof(err), NULL, NULL))
-    {
-      gfc_error ("Interface mismatch in procedure pointer assignment "
-             "at %L: %s", &rvalue->where, err);
-      return false;
-    }
-
       return true;
     }