gcc/testsuite/gfortran.fortran-torture/compile/bergervoet2.f90 - gcc - Git at Google

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