chap10/sample1b.f90

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

 1module b
 2  implicit none
 3
 4contains
 5  subroutine b_sub()
 6    implicit none
 7
 8    write(*, *) 'b_sub in module b is called'
 9  endsubroutine b_sub
10endmodule b