------- Comment #18 from pault at gcc dot gnu dot org 2008-01-26 11:49 -------
(In reply to comment #17)
> Cleaned up patch:
Jerry,
I found the equivalent:
if (n < loop->temp_dim && !integer_zerop (loop->from[n]))
loop->from[n] = gfc_index_zero_node;
This also bootstraps and regtests OK. Before selecting one or the other (yours
is at least minimalist:) ), I thought to try to understand what is happening.
A bizarre fact concerns FX's or your testcase:
integer :: i(1) = 0
write(*,*) foo([1]+i)
end
fails but foo(i+[1]) AND foo([1] + [1]) work!
It points to something being wrong with the scalarization of operators but I am
blowed if I can see what it is.
Paul
--
pault at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |jvdelisle at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31610
