problem with SPREAD for zero-sized array argument

[Steve Kargl]

On Wed, Oct 11, 2006 at 12:13:55PM -0700, Vivek Rao wrote:
> program xspread
> implicit none
> integer, parameter :: n = 1
> real               :: tempn(n)
> tempn       = 2.0
> print*,"here (0)"
> print*,spread(tempn(n+1:n),dim=1,ncopies=1)
> print*,"here (1)"
> end program xspread
> 
> The program above on Windows XP crashes 
> 
> gfortran gcc version 4.2.0 20061011 (experimental) .
> 
> I think it's a bug. If it is, I hope someone will
> enter it in bugzilla.

See http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27895

-- 
Steve