diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2010-05-03 17:57:14 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2010-05-03 17:57:14 +0000 |
| commit | 431f5969d1c519380d06981f330c8ca8f9cbe2bc (patch) | |
| tree | 4b66497dd2c35f0ad3475878ed64826bdc6e625b /gcc/fortran/parse.c | |
| parent | 42db504c2fb2b460e24ca0e73b8559fc33b3cf33 (diff) | |
| download | gcc-431f5969d1c519380d06981f330c8ca8f9cbe2bc.zip gcc-431f5969d1c519380d06981f330c8ca8f9cbe2bc.tar.gz gcc-431f5969d1c519380d06981f330c8ca8f9cbe2bc.tar.bz2 | |
re PR fortran/43592 (Unexpected INTERFACE statement in INTERFACE block at (1))
2010-05-03 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/43592
* fortran/parse.c (parse_interface): Do not dereference a NULL pointer.
2010-05-03 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/43592
* gfortran.dg/unexpected_interface.f90: New test.
From-SVN: r158998
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 8ad52d2..9320069 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -2264,9 +2264,9 @@ loop: { if (current_state == COMP_NONE) { - if (new_state == COMP_FUNCTION) + if (new_state == COMP_FUNCTION && sym) gfc_add_function (&sym->attr, sym->name, NULL); - else if (new_state == COMP_SUBROUTINE) + else if (new_state == COMP_SUBROUTINE && sym) gfc_add_subroutine (&sym->attr, sym->name, NULL); current_state = new_state; |