! { 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 |