3 ! PR 44211: [OOP] ICE with TBP of pointer component of derived type array
5 ! Original test case by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
10 class(ice_type),pointer::next
16 subroutine ice_sub(this)
19 integer function ice_fun(this)
23 type(ice_type),dimension(2)::ice_array
24 call ice_array(1)%next%ice_sub()
25 print *,ice_array(2)%next%ice_fun()