module_interface.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· 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