Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/typebound_proc_18.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 | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 45456: [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP ! ! Contributed by Andrew Benson <abenson@its.caltech.edu> module Merger_Trees private public :: mergerTree type mergerTree contains procedure :: getNode => Tree_Node_Get end type mergerTree contains function Tree_Node_Get(thisTree,nodeIndex) result(foundNode) implicit none class(mergerTree), intent(inout) :: thisTree integer, intent(in) :: nodeIndex integer, pointer :: foundNode return end function Tree_Node_Get end module Merger_Trees