| ! { dg-do run } | |
| ! PR 30321: This used to segfault. | |
| program xzero | |
| implicit none | |
| integer :: ii(1,0) | |
| logical :: ll(1,0) | |
| character (len=80) line | |
| ll = .true. | |
| write (unit=line, fmt="(I6)") sum(ii,dim=1) | |
| if (line /= " ") STOP 1 | |
| write (unit=line, fmt="(I6)") sum(ii,dim=1,mask=ll) | |
| if (line /= " ") STOP 2 | |
| end program xzero |