OTP-8463 Support for EXTENSIBILITY IMPLIED and SET/SEQ OF NamedType is

          added.

1 files changed, 56 insertions, 0 deletions

diff --git a/lib/asn1/test/asn1_SUITE_data/InfClass.asn b/lib/asn1/test/asn1_SUITE_data/InfClass.asn
new file mode 100644
index 0000000000..ecc6764402
--- /dev/null
+++ b/lib/asn1/test/asn1_SUITE_data/InfClass.asn
@@ -0,0 +1,56 @@
+InfClass DEFINITIONS  ::=
+BEGIN
+
+IMPORTS
+    ERROR
+FROM ErrorClass;
+
+FUNCTION ::= CLASS {
+    &ArgumentType,
+    &ResultType   DEFAULT NULL,
+    &error       ERROR OPTIONAL,
+    &code         INTEGER UNIQUE
+    }
+
+OTHER-FUNCTION ::= CLASS {
+    &code                 INTEGER UNIQUE,
+    &Alphabet             DEFAULT NULL,
+    &ArgumentType,
+    &SupportedArguments   &ArgumentType OPTIONAL,
+    &ResultType           DEFAULT NULL,
+    &result-if-error      &ResultType DEFAULT NULL,
+    &associated-function  OTHER-FUNCTION OPTIONAL,
+    &NumberSet            INTEGER,
+    &ObjectSet            OTHER-FUNCTION
+    }
+
+ObjSet1 FUNCTION ::= { ... }
+
+val1 FUNCTION ::= {
+    &ArgumentType  INTEGER,
+    &ResultType    INTEGER,
+    &code          3
+    }
+
+val2 FUNCTION ::= {
+    &ArgumentType  INTEGER,
+    &ResultType    INTEGER,
+    &code          2
+    }
+
+int1 INTEGER ::= 3
+
+ObjSet2 FUNCTION ::= {
+    val1 | val2 }
+
+
+-- added for OTP-4591
+
+Seq ::= SEQUENCE {
+  arg  FUNCTION.&ArgumentType ({ObjSet2}{@val1}),
+  res  FUNCTION.&ResultType   ({ObjSet2}{@val1}),
+  val1 FUNCTION.&code ({ObjSet2})
+  }
+
+
+END