module_interface.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 40 行

! We were incorrectly mangling procedures in interfaces in modules

module module_interface
    interface
        subroutine foo ()
        end subroutine foo
    end interface
contains
subroutine cs
end subroutine

subroutine cproc
  interface
      subroutine bar ()
      end subroutine
  end interface
  call bar ()
  call foo ()
  call cs ()
end subroutine
end module

subroutine foo ()
end subroutine

subroutine bar ()
end subroutine

program module_interface_proc
  use module_interface
  interface
      subroutine bar ()
      end subroutine
  end interface

  call cproc ()
  call foo ()
  call bar ()
end program