contained_4.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 36 行

! Check contained functions with the same name.
module contained_4

contains

  subroutine foo1()
    call bar()
  contains
    subroutine bar()
    end subroutine bar
  end subroutine foo1

  subroutine foo2()
    call bar()
  contains
    subroutine bar()
    end subroutine bar
  end subroutine foo2

end module contained_4

subroutine foo1()
call bar()
contains
  subroutine bar()
  end subroutine bar
end subroutine

subroutine foo2()
  call bar()
contains
  subroutine bar()
  end subroutine bar
end subroutine foo2