Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pdt_27.f03 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! Test the fix for PR83611, in which the assignment caused a ! double free error and the initialization of 'foo' was not done. ! module pdt_m implicit none type :: vec(k) integer, len :: k=3 integer :: foo(k)=[1,2,3] end type vec end module pdt_m program test_pdt use pdt_m implicit none type(vec) :: u,v if (any (u%foo .ne. [1,2,3])) STOP 1 u%foo = [7,8,9] v = u if (any (v%foo .ne. [7,8,9])) STOP 2 end program test_pdt