diff --git a/test/Test.c b/test/Test.c
index c1cde1214ebe48b9550515f502d30fb6f1aff2ab..22b0e5bd3ff0cbc2179f75cfe1da48159b9fb4b6 100644 (file)
--- a/test/Test.c
+++ b/test/Test.c
-/* 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
#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;
}