[patch, fortran] PR32612 gfortran - incorrectly flags error on interface module

[Jerry DeLisle]

I will commit the following as obvious and simple:

Regression tested on x86-64.

I left the mod_proc attribute off in the patch for pr25061. This is a regression 
fix.

Regards,

Jerry


2007-07-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/32612
	* decl.c (get_proc_name): Include attr->mod_proc in check for error.

Index: decl.c
===================================================================
--- decl.c      (revision 126283)
+++ decl.c      (working copy)
@@ -708,7 +708,8 @@ get_proc_name (const char *name, gfc_sym
        /* Trap a procedure with a name the same as interface in the
          encompassing scope.  */
        if (sym->attr.generic != 0
-         && (sym->attr.subroutine || sym->attr.function))
+         && (sym->attr.subroutine || sym->attr.function)
+         && !sym->attr.mod_proc)
         gfc_error_now ("Name '%s' at %C is already defined"
                        " as a generic interface at %L",
                        name, &sym->declared_at);

-------------- next part --------------
A non-text attachment was scrubbed...
Name: interface_13.f90
Type: text/x-fortran
Size: 1282 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20070704/c841862b/attachment.bin>