* module.c (fix_mio_expr): Declare sym.

From-SVN: r156632

gcc/fortran/ChangeLog

+2010-02-09  Jakub Jelinek  <jakub@redhat.com>
+
+	* module.c (fix_mio_expr): Declare sym.
+
 2010-02-09  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/41869

gcc/fortran/module.c

@@ -2927,6 +2927,8 @@ fix_mio_expr (gfc_expr *e)
     }
   else if (e->expr_type == EXPR_FUNCTION && e->value.function.name)
     {
+      gfc_symbol *sym;
+
       /* In some circumstances, a function used in an initialization
 	 expression, in one use associated module, can fail to be
 	 coupled to its symtree when used in a specification