------- Comment #3 from janus at gcc dot gnu dot org  2009-06-22 22:21 -------
This patch gives the correct error messages for comment #1, while avoiding the
testsuite failure of iso_c_binding_rename_1.f03:


Index: gcc/fortran/interface.c
===================================================================
--- gcc/fortran/interface.c     (revision 148816)
+++ gcc/fortran/interface.c     (working copy)
@@ -1382,7 +1382,9 @@ compare_parameter (gfc_symbol *formal, g
   if (formal->ts.type == BT_DERIVED
       && formal->ts.derived && formal->ts.derived->ts.is_iso_c
       && actual->ts.type == BT_DERIVED
-      && actual->ts.derived && actual->ts.derived->ts.is_iso_c)
+      && actual->ts.derived && actual->ts.derived->ts.is_iso_c
+      && (formal->ts.derived->attr.use_rename
+         || actual->ts.derived->attr.use_rename))
     return 1;

   if (actual->ts.type == BT_PROCEDURE)


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2009-03-29 08:47:29         |2009-06-22 22:21:56
               date|                            |


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

Reply via email to