Odd bug from Stack Overflow

[Thomas König]

Hi Steve,

This looks like a missing conversion somewhere,
because this works:

program test
    implicit none
    integer, parameter :: n = 65536
    real, dimension(n) :: y
    integer :: i
    y = (/ (1.0, i=1, n) /)
    print *,y(2)
    if (y(2) /= 1) stop 1
end program test

Also, n=65536 is a limit... setting n=2**16-1 actually
works as expected with the orginal test case.

This looks like a resolution problem, not something
in the scalarizer. Can you open a PR?

Regards

	Thomas