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