summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/unpack_zerosize_1.f90
blob: 8a41f5d9de1aa1265daea309a02de579d8c179cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
! { dg-do run }
! PR 32217 - unpack used to crash at runtime with a zero-sized
!            array.  Test case submitted by Jaroslav Hajek.
program bug_report
  implicit none
  integer,parameter:: rp = kind(1.d0),na = 6
  real(rp),allocatable:: hhe(:,:,:),hhc(:,:,:),dv(:)
  integer:: nhh,ndv
  nhh = 0
  allocate(hhe(nhh,2,2))
  ndv = 2*na + count(hhe /= 0)
  allocate(hhc(nhh,2,2),dv(ndv))
  hhc = unpack(dv(2*na+1:),hhe /= 0._rp,0._rp)
end program bug_report