diff options
| author | Martin Liska <mliska@suse.cz> | 2022-10-19 15:25:12 +0200 |
|---|---|---|
| committer | Martin Liska <mliska@suse.cz> | 2022-10-19 15:25:12 +0200 |
| commit | 4465e2a047c3b175bf6c4ca500547eb6b12df52f (patch) | |
| tree | 3159c8256f9907538f186ce7c1087c83825b5519 /gcc/fortran/simplify.cc | |
| parent | 6c22519f33270a689fc8730ceff9212b376ed40d (diff) | |
| parent | 09fed44cabd50f3d8e050f91cc2db02364ce9176 (diff) | |
| download | gcc-4465e2a047c3b175bf6c4ca500547eb6b12df52f.zip gcc-4465e2a047c3b175bf6c4ca500547eb6b12df52f.tar.gz gcc-4465e2a047c3b175bf6c4ca500547eb6b12df52f.tar.bz2 | |
Merge branch 'master' into devel/sphinx
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 |