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