Update test case

tests/testsuite/test10/Makefile

@@ -25,7 +25,11 @@ test-qgen-gt-ada:
 test-qgen-gt-c:
 	$(TESTQGEN_GT_C) $(ROOT_MODEL)
 
-test-ada: challenge.ali dataview-uniq.o | test_ada.o
+test-ada: dataview-uniq.o | test_ada.o
+	cp challenge_ri.ada challenge_ri.adb
+	$(OPENGEODE) challenge.pr system_structure.pr --toAda
+	mono $(ASN1SCC) -Ada -typePrefix asn1Scc -equal *.asn
+	gnat make challenge
 	$(GNATBIND) -n challenge.ali
 	$(GNATLINK) -o test_ada  test_ada.o challenge.ali -lm
 	./test_ada | diff expected -

tests/testsuite/test10/challenge_ri.ada

+package body challenge_RI is
+   procedure pow (a : in out asn1SccT_UInt32; b : in out asn1SccT_UInt32; res : out asn1SccT_UInt32) is
+       procedure C_Pow (a : in out asn1SccT_UInt32; b : in out asn1SccT_UInt32; res : out asn1SccT_UInt32) with Import, Convention => C, Link_Name => "challenge_RI_pow";
+   begin
+       C_Pow (a,b, res);
+   end pow;
+
+end challenge_RI;