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