3 ! PR 49562: [4.6/4.7 Regression] [OOP] assigning value to type-bound function
5 ! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
12 integer, target
:: it
= 0
14 function ice_func(this
)
15 integer, pointer :: ice_func
22 end subroutine ice_sub
27 if (it
/=0) call abort()
29 if (it
/=1) call abort()