2 files changed, 32 insertions, 0 deletions
diff --git a/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1 b/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1
index 330944cf5c..888dbe5dd7 100644
--- a/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1
+++ b/lib/asn1/test/asn1_SUITE_data/SeqOf.asn1
@@ -62,4 +62,13 @@ Empty ::= SEQUENCE
 {
 }
 
+SeqExt ::= SEQUENCE
+{
+  b1 BOOLEAN,
+  s1 SEQUENCE SIZE (1..3, ...) OF SeqIn,
+  b2 BOOLEAN,
+  s2 SEQUENCE SIZE (0..1024, ...) OF SeqIn,
+  magic INTEGER
+}
+
 END
diff --git a/lib/asn1/test/testSeqOf.erl b/lib/asn1/test/testSeqOf.erl
index 771045f9af..c1af0d7a32 100644
--- a/lib/asn1/test/testSeqOf.erl
+++ b/lib/asn1/test/testSeqOf.erl
@@ -86,6 +86,29 @@ main(_Rules) ->
     
     roundtrip('SeqEmp', #'SeqEmp'{seq1=[#'Empty'{}]}),
 
+    %% Test constrained, extensible size.
+
+    SeqIn = #'SeqIn'{boolIn=true,intIn=978654321},
+    roundtrip('SeqExt', {'SeqExt',true,[],true,[],789}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(1, SeqIn),
+			 true,lists:duplicate(0, SeqIn),777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(1, SeqIn),
+			 true,lists:duplicate(1, SeqIn),777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(1, SeqIn),
+			 true,lists:duplicate(127, SeqIn),777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(128, SeqIn),1777}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(255, SeqIn),7773}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(256, SeqIn),77755}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(2, SeqIn),
+			 true,lists:duplicate(257, SeqIn),8888}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(3, SeqIn),
+			 true,lists:duplicate(1024, SeqIn),999988888}),
+    roundtrip('SeqExt', {'SeqExt',true,lists:duplicate(15, SeqIn),
+			 true,lists:duplicate(2000, SeqIn),555555}),
+
     %% Test OTP-4590: correct encoding of the length of SEQUENC OF.
     DayNames = ["Monday","Tuesday","Wednesday",
 		"Thursday","Friday","Saturday","Sunday"],