org.eclipse.photran.core.vpg.tests/refactoring-test-code/encapsulate-variable/test-encap-01c-basic-dt.f90

module mod
  implicit none

  type point
    double precision x, y, z
  end type

  type(point) :: variable  !8,18,8
end module

program encap1
  use mod
  implicit none
  print *, variable
  variable = point(1.0, 2.0, 3.0)
  print *, variable
end program encap1