[Bug fortran/56969] [4.9 Regression] ISO_C_BINDING regression with current trunk

[burnus at gcc dot gnu.org]

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

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-16 11:13:34 UTC ---
Draft patch:

--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -4238,3 +4238,4 @@ got_specific:
   expr->value.function.isym = specific;
-  gfc_intrinsic_symbol (expr->symtree->n.sym);
+  if (!expr->symtree->n.sym->module)
+    gfc_intrinsic_symbol (expr->symtree->n.sym);