URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [write_zero_array.f90] - Diff between revs 154 and 816

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