diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/expr.c | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4acddfd..81ba111 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-08-01 Daniel Franke <franke.daniel@gmail.com> + + PR fortran/32945 + * expr.c (check_specification_function): Skip check if no symtree + is available. + 2007-08-01 Paul Thomas <pault@gcc.gnu.org> PR fortran/31609 diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 8e608ed..1048920 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -693,6 +693,10 @@ static match check_specification_function (gfc_expr *e) { gfc_symbol *sym; + + if (!e->symtree) + return MATCH_NO; + sym = e->symtree->n.sym; /* F95, 7.1.6.2; F2003, 7.1.7 */ |