diff options
| author | Steve Kargl <kargl@gcc.gnu.org> | 2022-10-17 22:42:40 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2022-10-17 22:44:59 +0200 |
| commit | 84807af0ca6dfdb81abb8e925ce32acbcab29868 (patch) | |
| tree | e8c3a14d2b9997c81c8de556fcf18206b4fc698d /gcc/fortran/simplify.cc | |
| parent | c9b840db504d15db01f06fe1fec38282dbafee07 (diff) | |
| download | gcc-84807af0ca6dfdb81abb8e925ce32acbcab29868.zip gcc-84807af0ca6dfdb81abb8e925ce32acbcab29868.tar.gz gcc-84807af0ca6dfdb81abb8e925ce32acbcab29868.tar.bz2 | |
Fortran: NULL pointer dereference in gfc_simplify_image_index [PR104330]
gcc/fortran/ChangeLog:
PR fortran/104330
* simplify.cc (gfc_simplify_image_index): Do not dereference NULL
pointer.
gcc/testsuite/ChangeLog:
PR fortran/104330
* gfortran.dg/pr104330.f90: New test.
Diffstat (limited to 'gcc/fortran/simplify.cc')
| -rw-r--r-- | gcc/fortran/simplify.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc index 6ac92cf..9c2fea8 100644 --- a/gcc/fortran/simplify.cc +++ b/gcc/fortran/simplify.cc @@ -8266,7 +8266,7 @@ gfc_simplify_image_index (gfc_expr *coarray, gfc_expr *sub) if (ref->type == REF_COMPONENT) as = ref->u.ar.as; - if (as->type == AS_DEFERRED) + if (!as || as->type == AS_DEFERRED) return NULL; /* "valid sequence of cosubscripts" are required; thus, return 0 unless |