	PROGRAM main
	 IMPLICIT NONE

	 REAL, POINTER :: ptr
	 REAL, TARGET :: r

         r = 1111

	 ptr => r		! Make ptr points to r
	 ptr = 4444

	 print *, "r = ", r
	END
