1! { dg-do  run }
2! PR 85102 - this used to ICE
3! Original test case by Gerhard Steinmetz
4program p
5   integer, parameter :: a((1+2)) = 1
6   integer, parameter :: b((1+1)+1) = 1
7   integer, parameter :: c = dot_product(a, a)
8   integer, parameter :: d = dot_product(b,b)
9   if (c /= 3) stop 1
10   if (d /= 3) stop 2
11 end program p
12