blob: 1074c941e876d6ed96db759bdb5950e6c9eb232f [file] [log] [blame]
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