mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 21:41:14 +08:00
Code Issues Packages Projects Releases Wiki Activity

* module.c (fix_mio_expr): Declare sym.

Browse Source 
From-SVN: r156632
This commit is contained in:
Jakub Jelinek 2010-02-09 19:42:17 +01:00 committed by Jakub Jelinek
parent 6f117ca583
commit b16be5f2c5
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
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

2
gcc/fortran/module.c
View File

@ -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