module_result.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 10 行

! Result variables in module procedures
module module_result
   implicit none
contains
function test () result (res)
   integer res
   res = 0
end function
end module