diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2019-12-21 20:42:14 +0000 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gcc.gnu.org> | 2019-12-21 20:42:14 +0000 |
| commit | 2289627dc25a9f72892dcec174dd0c621ee21469 (patch) | |
| tree | 0025e9dffc7f3f684f06861b1dbae06b9a36a05e /gcc | |
| parent | b5fd86aba81ec7dbd50e588909f81771841c03bd (diff) | |
| download | gcc-2289627dc25a9f72892dcec174dd0c621ee21469.zip gcc-2289627dc25a9f72892dcec174dd0c621ee21469.tar.gz gcc-2289627dc25a9f72892dcec174dd0c621ee21469.tar.bz2 | |
re PR fortran/91661 (ICE in gfc_conv_intrinsic_dot_product, at fortran/trans-intrinsic.c:4804)
2019-12-21 Harald Anlauf <anlauf@gmx.de>
PR fortran/91661
* gfortran.dg/pr91661.f90: New test.
From-SVN: r279699
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr91661.f90 | 13 |
2 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0068dc0..bbd9131 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2019-12-21 Harald Anlauf <anlauf@gmx.de> + PR fortran/91661 + * gfortran.dg/pr91661.f90: New test. + +2019-12-21 Harald Anlauf <anlauf@gmx.de> + PR fortran/92990 * gfortran.dg/pr92990.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/pr91661.f90 b/gcc/testsuite/gfortran.dg/pr91661.f90 new file mode 100644 index 0000000..9a17675 --- /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 |