1260684Skaiw! { dg-do run }
2260684Skaiw! PR 48066 - this used to segfault.
3260684Skaiwprogram p
4260684Skaiw  real(8) :: empty(0, 3), square(0)
5260684Skaiw  logical :: lempty(0, 3), lsquare(0)
6260684Skaiw  square = sum(empty * empty, 2)
7260684Skaiw  lsquare = any(lempty .and. lempty, 2)
8260684Skaiwend
9260684Skaiw