OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/91661 (ICE in gfc_conv_intrinsic_dot_product, at fortran/trans-intrinsic.c:4804)

Browse Source 
2019-12-21  Harald Anlauf  <anlauf@gmx.de>

	PR fortran/91661
	* gfortran.dg/pr91661.f90: New test.

From-SVN: r279699
This commit is contained in:
Harald Anlauf 2019-12-21 20:42:14 +00:00 committed by Harald Anlauf
parent b5fd86aba8
commit 2289627dc2
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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

13
gcc/testsuite/gfortran.dg/pr91661.f90 Normal file
View File

@ -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