diff --git a/src/@dates/intersect.m b/src/@dates/intersect.m
index 5518d13ac6a1abdb79b4060d5b4431f3d61ff79a..d8b7b26c202b7beb6ca5f64dc40e47926a4d8469 100644
--- a/src/@dates/intersect.m
+++ b/src/@dates/intersect.m
@@ -67,3 +67,16 @@ q.time = time;
 %$ t(2) = dassert(isempty(c2),true);
 %$ T = all(t);
 %@eof:1
+
+%@test:2
+%$ % Define some dates objects
+%$ d1 = dates('1950Q1'):dates('1969Q4') ;
+%$ d2 = dates('1950Q1'):dates('1969Q4') ;
+%$
+%$ % Call the tested routine.
+%$ c1 = intersect(d1,d2);
+%$
+%$ % Check the results.
+%$ t(1) = dassert(c1,d1);
+%$ T = all(t);
+%@eof:2