Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associated_target_4.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 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)) call abort() end program rte1