1! { dg-do run } 2! PR 33298 - zero-sized arrays for spread were handled 3! incorrectly. 4 5program main 6 real :: x(0,3), y(0) 7 x = spread(y,2,3) 8end 9