rt_gccstream/gcc/testsuite/gfortran.fortran-torture/compile/bergervoet2.f90

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