diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-11-30 13:23:17 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-11-30 13:23:17 +0000 |
| commit | aedc56bc3ad160b13d401584cb3db03caf499d90 (patch) | |
| tree | 4cc5b48fcde522d26fe076393441cdeacef4da6a /gcc/fortran/primary.c | |
| parent | 44bf3f4eef496f480662d10d4a314f7acb578c46 (diff) | |
| download | gcc-aedc56bc3ad160b13d401584cb3db03caf499d90.tar.gz | |
2016-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/78593
* primary.c (gfc_match_varspec): Check if sym is non-null to avoid ICE.
2016-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/78593
* gfortran.dg/derived_result.f90: New test case.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@243020 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 50d7072b670..2b20f8c0d9d 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2050,7 +2050,7 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, bool sub_flag, if (m != MATCH_YES) return MATCH_ERROR; - if (sym->f2k_derived) + if (sym && sym->f2k_derived) tbp = gfc_find_typebound_proc (sym, &t, name, false, &gfc_current_locus); else tbp = NULL; |