libgfortran/ChangeLog:
[official-gcc.git] / gcc / testsuite / gfortran.dg / proc_ptr_comp_36.f90
blob63140bb454bc1b07be2af2c86ed6dfc88965d7a4
1 ! { dg-do compile }
3 ! PR 54107: [4.8 Regression] Memory hog with abstract interface
5 ! Contributed by Arjen Markus <arjen.markus895@gmail.com>
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
19 end