summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/bergervoet2.f90
blob: eef33e425c209975274524f7937ee18827df7dc2 (plain)
1
2
3
4
5
    function testi()  result(res)
      integer           :: res
      res = 0
    end function testi