Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associated_target_4.f90 @ 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 44696: [OOP] ASSOCIATED fails on polymorphic variables ! ! Original test case by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de> ! Modified by Janus Weil <janus@gcc.gnu.org> program rte1 implicit none type::node_type class(node_type),pointer::parent,child integer::id end type node_type class(node_type),pointer::root allocate(root) allocate(root%child) root%child%parent=>root root%id=1 root%child%id=2 print *,root%child%id," is child of ",root%id,":" print *,root%child%parent%id,root%id if (.not. associated(root%child%parent,root)) STOP 1 end program rte1