interface show
    module procedure show_int
    module procedure show_character
  end interface

  contains
    subroutine show_int( n )
      implicit none
      integer, intent(in) :: n

      write(*,*) "Get an integer argument:",n

      return
    end subroutine show_int

    subroutine show_character( str )
      implicit none
      character(len=*), intent(in) :: str

      write(*,*) str

      return
    end subroutine show_character
end module obj

program ex1102
  use obj
  implicit none

  call show(1)
  call show("Hello, World")

  stop
end program ex1102