1! { dg-do compile }
2!
3! PR 54107: [4.8 Regression] Memory hog with abstract interface
4!
5! Contributed by Arjen Markus <arjen.markus895@gmail.com>
6
7  implicit none
8  type computation_method
9    character(len=40)                           :: name
10    procedure(compute_routine), pointer, nopass :: compute
11  end type
12  abstract interface
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
17    end subroutine
18  end interface
19end
20