Merge tree-ssa-20020619-branch into mainline.

[thirdparty/gcc.git] / gcc / testsuite / gfortran.fortran-torture / compile / fnresvar.f90

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