gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/module_result.f90


1
2
3
4
5
6
7
8
9

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