內部子程式

不是內部子程式的程式單元可以包含其他程式單元，稱為內部子程式。

program prog
  implicit none
contains
  function f()
  end function f
  subroutine g()
  end subroutine g
end program

這樣的內部子程式具有許多特徵：

• 子程式中的實體與外部程式之間存在主機關聯
• 隱式型別規則是繼承的（implicit none 在 f 中生效）
• 內部子程式在主機中具有顯式介面

模組子程式和外部子程式可能有內部子程式，例如

module mod
  implicit none
contains
  function f()
  contains
    subroutine s()
    end subroutine s
  end function f
end module mod