Commit b16be5f2 by Jakub Jelinek Committed by Jakub Jelinek

* module.c (fix_mio_expr): Declare sym.

From-SVN: r156632
parent 6f117ca5
2010-02-09 Jakub Jelinek <jakub@redhat.com>
* module.c (fix_mio_expr): Declare sym.
2010-02-09 Paul Thomas <pault@gcc.gnu.org> 2010-02-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/41869 PR fortran/41869
......
...@@ -2927,6 +2927,8 @@ fix_mio_expr (gfc_expr *e) ...@@ -2927,6 +2927,8 @@ fix_mio_expr (gfc_expr *e)
} }
else if (e->expr_type == EXPR_FUNCTION && e->value.function.name) else if (e->expr_type == EXPR_FUNCTION && e->value.function.name)
{ {
gfc_symbol *sym;
/* In some circumstances, a function used in an initialization /* In some circumstances, a function used in an initialization
expression, in one use associated module, can fail to be expression, in one use associated module, can fail to be
coupled to its symtree when used in a specification coupled to its symtree when used in a specification
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment