path: root/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/fnresvar.f90

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