mescc: Tinycc support: word array assignment.
[mes.git] / scaffold / tests / 7a-struct-char-array.c
index 9c0d0084e584d3d9dd359491427f0028efce457d..11cef4c0a9941484e2eb20062135dede5d32ee6f 100644 (file)
@@ -118,5 +118,27 @@ test ()
   if (p[8] != ' ') return 32;
   if (p[9] != '9') return 33;
   
+  short *ps;
+  ps = pfile->buffer;
+  p = pfile->buffer;
+
+  strcpy (file.buffer, "0123456789\n");
+  eputs (file.buffer);
+  memcpy (ps + 1, "  ", 2);
+  eputs (file.buffer);
+  eputs (itoa (ps[1])); eputs ("\n");
+  eputs (itoa (((' ' << 8) + ' ')));  eputs ("\n");
+  if (ps[1] != ((' ' << 8) + ' ')) return 40;
+  if (p[4] != '4') return 41;
+
+  strcpy (file.buffer, "0123456789\n");
+  eputs (file.buffer);
+  ps[2] = ((' ' << 8) + ' ');
+  eputs (file.buffer);
+  eputs (itoa (ps[2])); eputs ("\n");
+  eputs (itoa (((' ' << 8) + ' ')));  eputs ("\n");
+  if (ps[2] != ((' ' << 8) + ' ')) return 42;
+  if (p[6] != '6') return 43;
+
   return 0;
 }