1278798Shselasky! { dg-do run } 2278798Shselasky! PR 33298 - zero-sized arrays for spread were handled 3278798Shselasky! incorrectly. 4278798Shselasky 5278798Shselaskyprogram main 6278798Shselasky real :: x(0,3), y(0) 7278798Shselasky x = spread(y,2,3) 8278798Shselaskyend 9278798Shselasky