bergervoet2.f90

来自「用于进行gcc测试」· F90 代码 · 共 6 行

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