Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pointer_array_6.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! Test the fix for PR57019 comment 4 as part of the overall fix for PR34640. ! ! Contributed by <thambsup@gmail.com> ! type cParticle real(4) :: v(3) endtype cParticle type pCItem type(cParticle) :: Ele end type pCItem type(pCItem), target, dimension(1:1,1:1) :: pCellArray type(cParticle), pointer, dimension(:,:) :: pArray real(4), pointer, dimension(:) :: v_pointer real(4), dimension(3) :: v_real = 99. pArray => pCellArray%Ele v_pointer => pArray(1,1)%v; v_pointer = v_real !OK %%%%%%%%%%%% if (any (int (pArray(1,1)%v) .ne. 99)) call abort v_real = 88 pArray(1,1)%v = v_real !SEGFAULT %%%%%%%%%%%%%%%%%%%%%%%% if (any (int (v_pointer) .ne. 88)) call abort end