diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-08-10 19:10:26 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-08-10 19:10:26 +0200 |
| commit | a5da50ed65a835dc1ed6179e3f2b6164fd6e4969 (patch) | |
| tree | dc6dc107ea942f216e20d8134f0726e6dd8e14cc /gcc/fortran/frontend-passes.c | |
| parent | 5c64df80df274c753bfc8415bd902e1180e76f6a (diff) | |
| download | gcc-a5da50ed65a835dc1ed6179e3f2b6164fd6e4969.zip gcc-a5da50ed65a835dc1ed6179e3f2b6164fd6e4969.tar.gz gcc-a5da50ed65a835dc1ed6179e3f2b6164fd6e4969.tar.bz2 | |
Fix NULL pointer dereference in doloop_contained_function_call.
gcc/fortran/ChangeLog:
PR fortran/96556
* frontend-passes.c (doloop_contained_function_call):
Do not dereference a NULL pointer for value.function.esym.
gcc/testsuite/ChangeLog:
PR fortran/96556
* gfortran.dg/do_check_15.f90: New test.
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 6bcb1f0..83f6fd8 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -2329,7 +2329,8 @@ doloop_contained_function_call (gfc_expr **e, gfc_symbol *sym, *do_var; contained_info *info; - if (expr->expr_type != EXPR_FUNCTION || expr->value.function.isym) + if (expr->expr_type != EXPR_FUNCTION || expr->value.function.isym + || expr->value.function.esym == NULL) return 0; sym = expr->value.function.esym; |