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  <anlauf@gmx.de>
+
+	PR fortran/91661
+	* gfortran.dg/pr91661.f90: New test.
+
 2019-12-21  Harald Anlauf  <anlauf@gmx.de>
 
 	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