1! { dg-do run }
2! PR 48066 - this used to segfault.
3program p
4  real(8) :: empty(0, 3), square(0)
5  logical :: lempty(0, 3), lsquare(0)
6  square = sum(empty * empty, 2)
7  lsquare = any(lempty .and. lempty, 2)
8end
9