処理系:gfortran v4.2 したいこと:モジュールに関数オブジェクトを保持させたい。 例えば、モジュールに変数3をセットし後に取得するプログラム module Test implicit none integer,private::a contains subroutine set(x) integer,intent(in)::x a = x end subroutine integer function get() integer::get get = a end function end module program main use Test implicit none call set(3) print *,get() end program というものを書くことが出来ます。