gcc/testsuite/gfortran.dg/proc_ptr_comp_36.f90

   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
  19 end