| ! { dg-do run } | |
| ! PR30145 write statement fails to ignore zero-sized array | |
| ! Test case from PR, submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> | |
| program zeros | |
| implicit none | |
| character(20) :: msg = "" | |
| integer :: itemp(10) = 0 | |
| integer :: ics | |
| !This was OK | |
| write(msg,*) 'itemp(6:0) = ',itemp(6:0),'a' | |
| if (msg /= " itemp(6:0) = a") call abort() | |
| !This did not work before patch, segfaulted | |
| ics=6 | |
| write(msg,*) 'itemp(ics:0) = ',itemp(ics:0),'a' | |
| if (msg /= " itemp(ics:0) = a") call abort() | |
| end program zeros | |