blob: 36454044ee2c7704990300e503fd257d1efff9ec (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { 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
|