diff --git a/src/@dates/subsref.m b/src/@dates/subsref.m
index 55314c7fc98a50768437c76b92ee31057e3b7a93..9f14322b1400f2e49cbbc3e845dca4c1f347955e 100644
--- a/src/@dates/subsref.m
+++ b/src/@dates/subsref.m
@@ -327,3 +327,22 @@ end
 %$ T = all(t);
 %@eof:6
 
+%@test:7
+%$ % Define a dates object
+%$ B = dates('1950Q1','1950Q2','1950Q3','1950Q4','1951Q1');
+%$
+%$ % Try to extract a sub-dates object.
+%$ try
+%$     d = B([]);
+%$     t(1) = true;
+%$ catch
+%$     t(1) = false;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dassert(isa(d,'dates'), true);
+%$     t(3) = dassert(isempty(d), true);
+%$ end
+%$ T = all(t);
+%@eof:7
+