<Example Program>

	Module set     Integer :: node = 0     Real :: coord = 10. End Module Program use_example     Use set     Print *, node,coord     Call sub()     Print *, node,coord End Program Subroutine sub()     Use set, x=>coord     node = 5     x = 20. End Subroutine sub
	Execution Results   0  10.0000000   5  20.0000000