gcc/testsuite/gfortran.dg/sum_zero_array_1.f90

   1 ! { dg-do run }
   2 ! PR 30321:  This used to segfault.
   3 program xzero
   4   implicit none
   5   integer :: ii(1,0)
   6   logical :: ll(1,0)
   7   character (len=80) line
   8   ll = .true.
   9   write (unit=line, fmt="(I6)") sum(ii,dim=1)
  10   if (line /= " ") call abort
  11   write (unit=line, fmt="(I6)") sum(ii,dim=1,mask=ll)
  12   if (line /= " ") call abort
  13 end program xzero