org.eclipse.photran.core.vpg.tests/refactoring-test-code/encapsulate-variable/test-encap-02-contains.f90

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

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