3 ! Contributed by Gerhard Steinmetz
4 ! Verify that fix for PR92996 also fixes this one
6 integer, parameter :: a(2) = 2
7 integer, parameter :: b(a(1)) = 3
8 integer, parameter :: c
= dot_product(b
, b
)
9 integer, parameter :: d(a(1)+a(2)) = 3
10 integer, parameter :: e
= size (d
,dim
=1)
11 if (c
/= 18) stop 1 ! This used to ICE
12 if (e
/= 4) stop 2 ! This used to ICE