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

! Result variables in module procedures
module module_result
   implicit none
contains
function test () result (res)
   integer res
   res = 0
end function
end module