gcc/testsuite/gfortran.dg/intrinsic_ifunction_2.f90

   1 ! { dg-do run }
   2 ! PR 48066 - this used to segfault.
   3 program 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)
   8 end