X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=test%2FTest.c;h=22b0e5bd3ff0cbc2179f75cfe1da48159b9fb4b6;hp=c1cde1214ebe48b9550515f502d30fb6f1aff2ab;hb=338eeae16495bbdcbd8c4f3dad4996346e26139b;hpb=7bff9378302d5e23c6e9eabe7e6edc8034dcd562

diff --git a/test/Test.c b/test/Test.c
index c1cde12..22b0e5b 100644
--- a/test/Test.c
+++ b/test/Test.c
@@ -1,4 +1,4 @@
-/* voc 2.1.0 [2017/06/08] for gcc LP64 on arch xtpam */
+/* voc 2.1.0 [2017/07/17] for gcc LP64 on arch xtpam */
 
 #define SHORTINT INT8
 #define INTEGER  INT16
@@ -6,27 +6,34 @@
 #define SET      UINT32
 
 #include "SYSTEM.h"
-
-struct Test__1 {
-	char _prvt0[1];
-};
+#include "Out.h"
 
 typedef
-	struct Test__1 *Test_MyRecDesc;
+	INT16 (*Test_MyArr[3])[6];
+
 
+static Test_MyArr Test_a;
 
 
-export ADDRESS *Test__1__typ;
 
 
+static void EnumPtrs(void (*P)(void*))
+{
+	__ENUMP(Test_a, 3, P);
+}
 
-__TDESC(Test__1, 1, 0) = {__TDFLDS("", 1), {-8}};
 
 export int main(int argc, char **argv)
 {
 	__INIT(argc, argv);
-	__REGMAIN("Test", 0);
-	__INITYP(Test__1, Test__1, 0);
+	__MODULE_IMPORT(Out);
+	__REGMAIN("Test", EnumPtrs);
 /* BEGIN */
+	Out_Open();
+	Test_a[0] = __NEWARR(NIL, 2, 2, 1, 0, ((INT64)(6)));
+	(*Test_a[0])[0] = 1;
+	Out_Int((*Test_a[0])[0], 0);
+	Out_Ln();
+	Out_Flush();
 	__FINI;
 }