[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);