PROGRAM ch2120 INTEGER , POINTER :: A=>NULL(),B=>NULL() INTEGER , TARGET :: C INTEGER :: D PRINT *,LOC(a) PRINT *,LOC(b) ALLOCATE(a) ALLOCATE(b) PRINT *,LOC(a) PRINT *,LOC(b) PRINT *,LOC(c) PRINT *,LOC(d) C = 1 A = 21 C = 2 B = A D = A + B PRINT *,A,B,C,D PRINT *,LOC(a) PRINT *,LOC(b) PRINT *,LOC(c) PRINT *,LOC(d) END PROGRAM ch2120