summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/module_result.f90
blob: 105073596f5ad904935f427f83fcf3f042ec5d48 (plain)
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