diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2017-11-09 18:45:29 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2017-11-09 18:45:29 +0000 |
| commit | 1fb84d5b0a2dcdb8fd5aa39680df651811d55fbb (patch) | |
| tree | 2502170a845a2eeaeb55c59e253458910140642d /gcc/fortran/interface.c | |
| parent | f097ff235052e19a371d24da32ba2741681d443b (diff) | |
| download | gcc-1fb84d5b0a2dcdb8fd5aa39680df651811d55fbb.zip gcc-1fb84d5b0a2dcdb8fd5aa39680df651811d55fbb.tar.gz gcc-1fb84d5b0a2dcdb8fd5aa39680df651811d55fbb.tar.bz2 | |
re PR fortran/78814 (ICE in symbol_rank, at fortran/interface.c:1265)
2017-11-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/78814
* interface.c (symbol_rank): Check for NULL pointer.
2017-11-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/78814
* gfortran.dg/interface_40.f90: New testcase.
From-SVN: r254604
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 9f0fcc8..1b7ebf5 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -1262,8 +1262,13 @@ generic_correspondence (gfc_formal_arglist *f1, gfc_formal_arglist *f2, static int symbol_rank (gfc_symbol *sym) { - gfc_array_spec *as; - as = (sym->ts.type == BT_CLASS) ? CLASS_DATA (sym)->as : sym->as; + gfc_array_spec *as = NULL; + + if (sym->ts.type == BT_CLASS && CLASS_DATA (sym) && CLASS_DATA (sym)->as) + as = CLASS_DATA (sym)->as; + else + as = sym->as; + return as ? as->rank : 0; } |