public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r12-8782] Fortran: error recovery on invalid ARRAY argument to FINDLOC [PR106986]
@ 2022-09-22 18:48 Harald Anlauf
0 siblings, 0 replies; only message in thread
From: Harald Anlauf @ 2022-09-22 18:48 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:84a34d76a76f27feabd4523e388068c90c2bb2e4
commit r12-8782-g84a34d76a76f27feabd4523e388068c90c2bb2e4
Author: Harald Anlauf <anlauf@gmx.de>
Date: Tue Sep 20 22:41:48 2022 +0200
Fortran: error recovery on invalid ARRAY argument to FINDLOC [PR106986]
gcc/fortran/ChangeLog:
PR fortran/106986
* simplify.cc (gfc_simplify_findloc): Do not try to simplify
intrinsic FINDLOC when the ARRAY argument has a NULL shape.
gcc/testsuite/ChangeLog:
PR fortran/106986
* gfortran.dg/pr106986.f90: New test.
(cherry picked from commit 5976fbf9d5dd9542fcb82eebb2185886fd52d000)
Diff:
---
gcc/fortran/simplify.cc | 1 +
gcc/testsuite/gfortran.dg/pr106986.f90 | 8 ++++++++
2 files changed, 9 insertions(+)
diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc
index 0eff5a546cc..a6a3e94fbd9 100644
--- a/gcc/fortran/simplify.cc
+++ b/gcc/fortran/simplify.cc
@@ -5857,6 +5857,7 @@ gfc_simplify_findloc (gfc_expr *array, gfc_expr *value, gfc_expr *dim,
bool back_val = false;
if (!is_constant_array_expr (array)
+ || array->shape == NULL
|| !gfc_is_constant_expr (dim))
return NULL;
diff --git a/gcc/testsuite/gfortran.dg/pr106986.f90 b/gcc/testsuite/gfortran.dg/pr106986.f90
new file mode 100644
index 00000000000..a309b25d181
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr106986.f90
@@ -0,0 +1,8 @@
+! { dg-do compile }
+! PR fortran/106986 - ICE in simplify_findloc_nodim
+! Contributed by G.Steinmetz
+
+program p
+ integer, parameter :: a(:) = [1] ! { dg-error "deferred shape" }
+ print *, findloc (a, 1)
+end
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-09-22 18:48 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-09-22 18:48 [gcc r12-8782] Fortran: error recovery on invalid ARRAY argument to FINDLOC [PR106986] Harald Anlauf
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).