Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/intrinsic_pack_5.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! PR 41478: Corrupted memory using PACK for derived-types with allocated components ! PR 42268: [4.4/4.5 Regression] derived type segfault with pack ! ! Original test case by Juergen Reuter <reuter@physik.uni-freiburg.de> ! Modified by Janus Weil <janus@gcc.gnu.org> type :: container_t integer:: entry = -1 end type container_t type(container_t), dimension(1) :: a1, a2 a2(1)%entry = 1 a1 = pack (a2, mask = [.true.]) if (a1(1)%entry/=1) call abort() end