1 2 3 4 5
! Explicit function rsult variables function fnresvar() result (r) integer r r = 0 end function