diff --git a/examples/uniq.f90 b/examples/uniq.f90
index 7f98bacc8e34265a324d11f054ce200e10aa5fd4..02444ca158b281ead4b72409697f2a4c7c2e1cda 100644
--- a/examples/uniq.f90
+++ b/examples/uniq.f90
@@ -158,7 +158,7 @@ PROGRAM output_test
     WRITE (0, *) '     remaining events: ', remaining_event_steps
 
     IF (remaining_event_steps > SIZE(mtime_date_container_a)) THEN
-      ALLOCATE (tmp(SIZE(mtime_date_container_a)), stat=ierrstat)
+      ALLOCATE (tmp(remaining_event_steps), stat=ierrstat)
       IF (ierrstat /= 0) STOP 'allocate failed'
       tmp(1:remaining_event_steps) = mtime_date_uniq(1:remaining_event_steps)
       CALL MOVE_ALLOC(tmp, mtime_date_container_a)
@@ -172,7 +172,7 @@ PROGRAM output_test
 
   DEALLOCATE (mtime_date_container_a)
   DEALLOCATE (mtime_date_container_b)
-  DEALLOCATE (tmp_jd)
+  CALL deallocateJulianday(tmp_jd)
 
 CONTAINS