program Hello
  implicit none
  integer :: i = 3 !!! a variable !!!

  call Sub(Fn(i) + 1)

  print *, "The integer is ", i

contains ! a comment

subroutine Sub(x) ! start
  implicit none
  real :: x

  print *, "In the subroutine, the integer is ", x
end subroutine Sub   ! end

end program

integer function Fn(n) result(y)
  print *, "You sent", n, "to the function"
  y = n
end function