blob: 9a176758ac9e12afb164bec1989b4176aa5f72b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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
|
