I wrote:
Ah, OK, I was hoping that that was the problem - that the current
implementation didn't support broadcasting scalars to arrays.
[next version]:
DIMENSION A(1000000), B(1000000), C(1000000)
READ*, X, Y
A = LOG(X); B = LOG(Y); C = A + B
PRINT*, C(500000)
END
Now that I bootstrapped the lno branch again, and found the right
flags to supply:
/usr/lno/bin/gfortran -static -g -O2 -S -fdump-tree-vect-details
-fscalar-evolutions -ftree-vectorize -maltivec vector.f95
I get, in vector.f95.t34.vect:
<<<<<<< analyze_loop_nest >>>>>>>
<<vect_analyze_loop_form>>
<<get_loop_niters>>
Complicated exit condition.
loop_analyzer: bad loop form.
3 times, with the last loop being:
<L6>:;
if (S.10_18 > 1000000) goto L.3; else goto <L7>;