PROGRAM C2107
INTEGER , POINTER :: A=>NULL(),B=>NULL()
INTEGER , TARGET :: C
INTEGER :: D
  ALLOCATE(A)
  C = 1
  A = 21
  C = 2
  B => C
  D = A + B
  PRINT *,A,B,C,D
END PROGRAM C2107