diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2019-12-12 20:39:48 +0000 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gcc.gnu.org> | 2019-12-12 20:39:48 +0000 |
| commit | 5e4bb241476d2cd81fc1dac1bede902d3dd9c1e3 (patch) | |
| tree | c341fbc7a3ccf9be803a8c4501d6142059df5c97 /gcc/fortran/check.c | |
| parent | 666b46c6106dbd3ad6a27be4bf1844ccbaa8e67d (diff) | |
| download | gcc-5e4bb241476d2cd81fc1dac1bede902d3dd9c1e3.zip gcc-5e4bb241476d2cd81fc1dac1bede902d3dd9c1e3.tar.gz gcc-5e4bb241476d2cd81fc1dac1bede902d3dd9c1e3.tar.bz2 | |
re PR fortran/92898 (ICE in gfc_check_is_contiguous, at fortran/check.c:7157)
2019-12-12 Harald Anlauf <anlauf@gmx.de>
PR fortran/92898
* check.c (gfc_check_is_contiguous): Simplify check to handle
arbitrary NULL() argument.
PR fortran/92898
* gfortran.dg/pr92898.f90: New test.
From-SVN: r279314
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index d2a4949..deb5160 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -7153,8 +7153,7 @@ gfc_check_ttynam_sub (gfc_expr *unit, gfc_expr *name) bool gfc_check_is_contiguous (gfc_expr *array) { - if (array->expr_type == EXPR_NULL - && array->symtree->n.sym->attr.pointer == 1) + if (array->expr_type == EXPR_NULL) { gfc_error ("Actual argument at %L of %qs intrinsic shall be an " "associated pointer", &array->where, gfc_current_intrinsic); |