URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
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
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.