1! { dg-do run } 2! PR 30321: This used to segfault. 3program 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 /= " ") STOP 1 11 write (unit=line, fmt="(I6)") sum(ii,dim=1,mask=ll) 12 if (line /= " ") STOP 2 13end program xzero 14