Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/unpack_zerosize_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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