chap10/sample1a.f90

サンプルコードのダウンロード

module a
  use b
  implicit none

contains
  subroutine a_sub()
    implicit none

    call b_sub()
    write(*, *) 'a_sub in module a is called'
  endsubroutine a_sub
endmodule a