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