PROGRAM PTR_TEST1 INTEGER, POINTER :: PTR1 INTEGER, TARGET :: X=42, Y=114 INTEGER :: N REAL, POINTER :: PTR2:wq:w REAL, POINTER :: PTRA(:) ! ... PTR1 => X ! PTR1 points to X Y = PTR1 ! Y equals X PTR1 => Y ! PTR1 points to Y PTR1 = 38 ! Y equals 38 ! Dynamic memory blocks N = 1000 ALLOCATE( PTR2, PTRA(N) ) ! Do some computing DEALLOCATE(PTR2, PTRA) END PROGRAM PTR_TEST1