------- Comment #1 from dominiq at lps dot ens dot fr 2007-09-03 07:39 -------
I don't see the ICE on PPC Darwin8, revision 128037, but the following modifed
code gives a wrong answer:
program initbug
integer,parameter :: n0 = 3, n = 5
real(kind=8),parameter :: x0(n0) = (/ 2.0d0, 2.0d0, 2.0d0 /)
real(kind=8),parameter :: x(n) = (/ -x0, x0(n0-1:1:-1) /) + 1.0d0
print *, x
end program initbug
gives
-1.00000000000000 -1.00000000000000 -1.00000000000000
1.00000000000000 0.00000000000000
xlf and g95 gives:
-1.00000000000000000 -1.00000000000000000 -1.00000000000000000
3.00000000000000000 3.00000000000000000
or -1. -1. -1. 3. 3. as I expect.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33288
