PROGRAM p
  IMPLICIT NONE
  SAVE
  
  INTEGER :: K, I

  K = 3
  
  !$OMP PARALLEL
    !$OMP DO LASTPRIVATE(K)
    DO I = 1, 100
     K = I
    END DO
    !$OMP END DO
  !$OMP END PARALLEL

  PRINT *, K
END PROGRAM p