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()
32 ! { dg-final { cleanup-modules "ice" } }