plugins: change return codes of geany_load_module() and GeanyPluginFuncs::init

[geany-mirror.git] / tests / ctags / procedure_pointer_module.f90

! a module that uses procedure pointer
module proc_pointer

  real :: a
  procedure(sub), pointer :: my_pointer

contains

  subroutine sub(x)
    real, intent(inout) :: x(:)

    integer :: i

    do i=1,size(x)
       x(i) = 0.5**i
    end do
  end subroutine sub

end module proc_pointer