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