fnresvar.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 6 行

! Explicit function rsult variables
function fnresvar() result (r)
   integer r
   r = 0
end function