fnresvar.f90   [plain text]

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