subroutine3b.f90

integer function f()
f = 42
end function

integer function g()
g = 42
end function

integer function h()
h = 42
end function