Add second test case for aggregations

tests/regression/test-aggregation2/Makefile

+include ../shared.mk
+
+all: test-ada test-llvm
+
+edit:
+	$(OPENGEODE) og.pr
+
+test-parse:
+	$(OPENGEODE) og.pr --check
+
+test-ada: 
+	$(OPENGEODE) og.pr --toAda
+	$(ASN1SCC) -Ada dataview-uniq.asn -typePrefix asn1Scc -equal
+	$(GNATMAKE) -O$(O) -c *.adb
+	$(GNATBIND) -n og.ali
+
+test-c: 
+	$(OPENGEODE) og.pr --toC
+	$(ASN1SCC) -c dataview-uniq.asn -typePrefix asn1Scc -equal
+	$(CC) -O$(O) -c *.c
+
+
+test-llvm:
+	$(OPENGEODE) og.pr --llvm -O$(O)
+	$(LLC) *.ll
+	$(CC) -O$(O) -c *.s
+
+
+coverage:
+	coverage run -p $(OPENGEODE) og.pr --toAda
+
+.PHONY: all edit test-parse test-ada test-llvm coverage

tests/regression/test-aggregation2/dataview-uniq.asn

+TASTE-Dataview DEFINITIONS ::=
+
+
+BEGIN
+
+MyChoice ::= CHOICE {
+    a CHOICE {
+        b CHOICE {
+            c BOOLEAN,
+            d BOOLEAN
+        },
+        e BOOLEAN
+    },
+    f BOOLEAN
+}
+
+Some-Thing ::= MyInteger
+
+MyInteger   ::= INTEGER (0..255)
+
+My-OctStr    ::= OCTET STRING (SIZE (0..20))
+
+SeqOf ::= SEQUENCE (SIZE(0..100)) OF MyInteger
+
+Type1 ::= INTEGER(0..1)
+Type2 ::= BOOLEAN
+
+Toto ::= SEQUENCE { elem-1 Type1, elem-2 Type2 }
+
+SeqBool ::= SEQUENCE(SIZE(1..5)) OF BOOLEAN
+Enum ::= ENUMERATED {enum1}
+
+default-seqof SeqOf ::= {4,7,9}
+default-str My-OctStr ::= 'DEADBEEF'H
+
+END

tests/regression/test-aggregation2/og.pr

+SYSTEM og;
+    /* CIF TEXT (159, 221), (356, 248) */
+    -- Text area for declarations and comments
+
+use dv comment 'dataview-uniq.asn';
+
+--use dv2 comment 'dataview2.asn';
+
+signal dd(Type2);
+signal we(Some_Thing);
+
+procedure hehe;
+fpar in/out a_param Type2;
+external;
+    /* CIF ENDTEXT */
+    CHANNEL c
+        FROM ENV TO og WITH dd;
+        FROM og TO ENV WITH we;
+    ENDCHANNEL;
+    BLOCK og;
+        SIGNALROUTE r
+            FROM ENV TO og WITH dd;
+            FROM og TO ENV WITH we;
+        CONNECT c AND r;
+        /* CIF PROCESS (225, 49), (150, 75) */
+        PROCESS og;
+            STATE AGGREGATION wait;
+            SUBSTRUCTURE
+                    STATE b;
+                    SUBSTRUCTURE
+                            /* CIF START (36, 35), (70, 35) */
+                            START;
+                                /* CIF NEXTSTATE (36, 85), (70, 35) */
+                                NEXTSTATE d;
+                            /* CIF STATE (116, 91), (70, 35) */
+                            STATE d;
+                            ENDSTATE;
+                    ENDSUBSTRUCTURE;
+                    STATE a;
+                    SUBSTRUCTURE
+                            /* CIF START (7, 15), (70, 35) */
+                            START;
+                                /* CIF NEXTSTATE (7, 65), (70, 35) */
+                                NEXTSTATE c;
+                            /* CIF STATE (119, 53), (70, 35) */
+                            STATE c;
+                            ENDSTATE;
+                    ENDSUBSTRUCTURE;
+                    /* CIF STATE (55, 14), (70, 35) */
+                    STATE a;
+                    ENDSTATE;
+                    /* CIF STATE (71, 136), (70, 35) */
+                    STATE b;
+                    ENDSTATE;
+            ENDSUBSTRUCTURE;
+            /* CIF START (121, 191), (70, 35) */
+            START;
+                /* CIF NEXTSTATE (121, 241), (70, 35) */
+                NEXTSTATE wait;
+            /* CIF STATE (251, 205), (70, 35) */
+            STATE wait;
+            ENDSTATE;
+        ENDPROCESS og;
+    ENDBLOCK;
+ENDSYSTEM;
\ No newline at end of file

tests/regression/test-aggregation2/og2.pr

+SYSTEM og;
+    /* CIF TEXT (159, 221), (356, 248) */
+    -- Text area for declarations and comments
+
+use dv comment 'dataview-uniq.asn';
+
+--use dv2 comment 'dataview2.asn';
+
+signal dd(Type2);
+signal we(Some_Thing);
+
+procedure hehe;
+fpar in/out a_param Type2;
+external;
+    /* CIF ENDTEXT */
+    CHANNEL c
+        FROM ENV TO og WITH dd;
+        FROM og TO ENV WITH we;
+    ENDCHANNEL;
+    BLOCK og;
+        SIGNALROUTE r
+            FROM ENV TO og WITH dd;
+            FROM og TO ENV WITH we;
+        CONNECT c AND r;
+        /* CIF PROCESS (225, 49), (150, 75) */
+        PROCESS og;
+            STATE AGGREGATION wait;
+            SUBSTRUCTURE
+                    STATE a;
+                    SUBSTRUCTURE
+                            /* CIF START (7, 15), (70, 35) */
+                            START;
+                                /* CIF NEXTSTATE (7, 65), (70, 35) */
+                                NEXTSTATE c;
+                            /* CIF STATE (119, 53), (70, 35) */
+                            STATE c;
+                            ENDSTATE;
+                    ENDSUBSTRUCTURE;
+                    STATE b;
+                    SUBSTRUCTURE
+                            /* CIF START (36, 35), (70, 35) */
+                            START;
+                                /* CIF NEXTSTATE (36, 85), (70, 35) */
+                                NEXTSTATE d;
+                            /* CIF STATE (116, 91), (70, 35) */
+                            STATE d;
+                            ENDSTATE;
+                    ENDSUBSTRUCTURE;
+                    /* CIF STATE (71, 136), (70, 35) */
+                    STATE b;
+                    ENDSTATE;
+                    /* CIF STATE (55, 14), (70, 35) */
+                    STATE a;
+                    ENDSTATE;
+            ENDSUBSTRUCTURE;
+            /* CIF START (121, 191), (70, 35) */
+            START;
+                /* CIF NEXTSTATE (121, 241), (70, 35) */
+                NEXTSTATE wait;
+            /* CIF STATE (251, 205), (70, 35) */
+            STATE wait;
+            ENDSTATE;
+        ENDPROCESS og;
+    ENDBLOCK;
+ENDSYSTEM;
\ No newline at end of file