[Bug fortran/56814] [4.8/4.9 Regression] Bogus Interface mismatch in dummy procedure

[janus at gcc dot gnu.org]

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

--- Comment #5 from janus at gcc dot gnu.org 2013-04-17 08:58:25 UTC ---
Alternative patch:

Index: gcc/fortran/interface.c
===================================================================
--- gcc/fortran/interface.c    (revision 198007)
+++ gcc/fortran/interface.c    (working copy)
@@ -1184,9 +1184,20 @@ check_result_characteristics (gfc_symbol *s1, gfc_
 {
   gfc_symbol *r1, *r2;

-  r1 = s1->result ? s1->result : s1;
-  r2 = s2->result ? s2->result : s2;
+  if (s1->ts.interface && s1->ts.interface->result)
+    r1 = s1->ts.interface->result;
+  else if (s1->result)
+    r1 = s1->result;
+  else
+    r1 = s1;

+  if (s2->ts.interface && s2->ts.interface->result)
+    r2 = s2->ts.interface->result;
+  else if (s2->result)
+    r2 = s2->result;
+  else
+    r2 = s2;
+
   if (r1->ts.type == BT_UNKNOWN)
     return true;


Regtesting now ...