module mod
  implicit none
  integer :: variable  !3,14,8
  private :: variable
contains
    subroutine setVariable(value)
        implicit none
        integer, intent(in) :: value
        variable = value
    end subroutine

    integer function getVariable()
        implicit none
        getVariable = variable
    end function

end module

program encap1
  use mod
  implicit none
  call setVariable(3)
  !                            9 + 1
  call setVariable(getVariable() *getVariable() + (getVariable() - 2))
  print *,getVariable(), " should be equal to ", 10
end program encap1