module mod
  implicit none
  integer :: variable  !3,14,8
contains
  integer function getVariable()
    getVariable = 99999
  end function
end module

program encap1
  use mod
  implicit none
  print *, variable
  variable = 3
  print *, variable
end program encap1