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