URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [unpack_zerosize_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! PR 32217 - unpack used to crash at runtime with a zero-sized`	`! PR 32217 - unpack used to crash at runtime with a zero-sized`
`! array. Test case submitted by Jaroslav Hajek.`	`! array. Test case submitted by Jaroslav Hajek.`
`program bug_report`	`program bug_report`
`implicit none`	`implicit none`
`integer,parameter:: rp = kind(1.d0),na = 6`	`integer,parameter:: rp = kind(1.d0),na = 6`
`real(rp),allocatable:: hhe(:,:,:),hhc(:,:,:),dv(:)`	`real(rp),allocatable:: hhe(:,:,:),hhc(:,:,:),dv(:)`
`integer:: nhh,ndv`	`integer:: nhh,ndv`
`nhh = 0`	`nhh = 0`
`allocate(hhe(nhh,2,2))`	`allocate(hhe(nhh,2,2))`
`ndv = 2*na + count(hhe /= 0)`	`ndv = 2*na + count(hhe /= 0)`
`allocate(hhc(nhh,2,2),dv(ndv))`	`allocate(hhc(nhh,2,2),dv(ndv))`
`hhc = unpack(dv(2*na+1:),hhe /= 0._rp,0._rp)`	`hhc = unpack(dv(2*na+1:),hhe /= 0._rp,0._rp)`
`end program bug_report`	`end program bug_report`