Very Advanced
モジュール手続き、手続き引用仕様宣言、総称指定
質問36/42
このプログラムの出力は以下のどれでしょうか?
   
module fmodule   
  implicit none   
  interface x   
    module procedure func1, func2   
  end interface   
contains   
  integer function func1(a)   
    integer a   
    func1 = a*2   
  end function func1   
  integer function func2(a)   
    real a   
    func2 = nint(a)*3   
  end function func2   
end module fmodule   
   
program main   
  use fmodule   
  print *, x(2) + x(1.)   
end program   
選択肢1
8
選択肢2
3
選択肢3
5
選択肢4
7
選択肢5
未定義もしくはエラー


Results matter. Trust NAG.
Privacy Policy | Trademarks