https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122388
Tamar Christina <tnfchris at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Resolution|--- |FIXED
Status|UNCONFIRMED |RESOLVED
--- Comment #6 from Tamar Christina <tnfchris at gcc dot gnu.org> ---
Thanks both,
Using that I got a better testcase
integer (8) i, l8, u8, step8
integer step4
integer (8), parameter :: big = 10000000000_8
l8 = big
u8 = big * 20
step8 = big
call test ((/ (i, i = l8, u8, step8) /), l8, u8, step8)
l4 = 100
step4 = -big / 500
call test ((/ (i, i = u8, l4, step4) /), u8, l4 + 0_8, step4 + 0_8)
contains
subroutine test (a, l, u, step)
integer (8), dimension (:) :: a
integer (8) l, u, step
j = 1
do i = l, u, step
if (a (j) .ne. i) STOP
j = j + 1
end do
if (size (a) .ne. j - 1) STOP 2
end
end
which shows where the bug is in my patch. Sorry for the noise!
