module dynamic
  implicit none

  private
  public :: hello

  interface hello
     module procedure say
  end interface hello

contains

  subroutine say
    print *, "Hello, hello..."
  end subroutine say

end module dynamic