Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_1.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 } ! ! PR 40940: CLASS statement ! ! Contributed by Janus Weil <janus@gcc.gnu.org> implicit none type t integer :: comp class(t),pointer :: c2 end type class(t),pointer :: c1 allocate(c1) c1%comp = 5 c1%c2 => c1 print *,c1%comp call sub(c1) if (c1%comp/=5) STOP 1 deallocate(c1) contains subroutine sub (c3) class(t) :: c3 print *,c3%comp end subroutine end