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

 ! Explicit function rsult variables
 function fnresvar() result (r)
    integer r
    r = 0
 end function
	! Explicit function rsult variables
	function fnresvar() result (r)
	integer r
	r = 0
	end function