3 ! PR 54107: [4.8 Regression] Memory hog with abstract interface
5 ! Contributed by Arjen Markus <arjen.markus895@gmail.com>
8 type computation_method
9 character(len=40) :: name
10 procedure(compute_routine), pointer, nopass :: compute
13 subroutine compute_routine( param_value, zfunc, probability )
14 real, dimension(:), intent(in) :: param_value
15 procedure(compute_routine) :: zfunc
16 real, intent(in) :: probability