summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/fnresvar.f90
blob: fab9aa665a4835ec7ee48921ca688d85503466d4 (plain)
1
2
3
4
5
! Explicit function rsult variables
function fnresvar() result (r)
   integer r
   r = 0
end function