bergervoet2.f90   [plain text]

    function testi()  result(res)
      integer           :: res
      res = 0
    end function testi