Fix the uniq example

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