org.eclipse.photran.core.vpg.tests/refactoring-test-code/encapsulate-variable/test-encap-04-nosetter-parameter.f90 - ptp/org.eclipse.photran - Git at Google

 module mod
   implicit none
   integer, parameter :: CONSTANT = 10  !3,25,8
 end module

 program encap1
   use mod
   implicit none

   print *, CONSTANT
 end program encap1
	module mod
	implicit none
	integer, parameter :: CONSTANT = 10 !3,25,8
	end module

	program encap1
	use mod
	implicit none

	print *, CONSTANT
	end program encap1