3 ! PR 44212: [OOP] ICE when defining a pointer component before defining the class and calling a TBP then
5 ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
10 class(A_type),pointer :: A_comp
20 subroutine A_proc(this)
21 class(A_type),target,intent(inout) :: this
24 subroutine ice_proc(this)
27 end subroutine ice_proc