From 2289627dc25a9f72892dcec174dd0c621ee21469 Mon Sep 17 00:00:00 2001 From: Harald Anlauf Date: Sat, 21 Dec 2019 20:42:14 +0000 Subject: [PATCH] re PR fortran/91661 (ICE in gfc_conv_intrinsic_dot_product, at fortran/trans-intrinsic.c:4804) 2019-12-21 Harald Anlauf PR fortran/91661 * gfortran.dg/pr91661.f90: New test. From-SVN: r279699 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr91661.f90 | 13 +++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr91661.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0068dc0cf20..bbd9131e5cd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-12-21 Harald Anlauf + + PR fortran/91661 + * gfortran.dg/pr91661.f90: New test. + 2019-12-21 Harald Anlauf PR fortran/92990 diff --git a/gcc/testsuite/gfortran.dg/pr91661.f90 b/gcc/testsuite/gfortran.dg/pr91661.f90 new file mode 100644 index 00000000000..9a176758ac9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr91661.f90 @@ -0,0 +1,13 @@ +! { dg-do run } +! PR fortran/91661 +! Contributed by Gerhard Steinmetz +! Verify that fix for PR92996 also fixes this one +program p + integer, parameter :: a(2) = 2 + integer, parameter :: b(a(1)) = 3 + integer, parameter :: c = dot_product(b, b) + integer, parameter :: d(a(1)+a(2)) = 3 + integer, parameter :: e = size (d,dim=1) + if (c /= 18) stop 1 ! This used to ICE + if (e /= 4) stop 2 ! This used to ICE +end -- 2.30.2