test: Split-off broken 72-typedef-struct-def-local.

* lib/tests/scaffold/72-typedef-struct-def-local.c: New file.
* lib/tests/scaffold/72-typedef-struct-def.c: Remove local bit.
* build-aux/check-mescc.sh (TESTS): Add it.
(XFAIL_TESTS)[mescc]: Add lib/tests/scaffold/72-typedef-struct-def.c.

diff --git a/build-aux/check-mescc.sh b/build-aux/check-mescc.sh
index 0a18efd7011e5a1505df25caa87213adc1a7d688..f6d9b6968ce3f7a2841004662ddfc626e1ff0010 100755 (executable)
--- a/build-aux/check-mescc.sh
+++ b/build-aux/check-mescc.sh
@@ -133,6 +133,7 @@ lib/tests/stdlib/70-strtoull.c
 lib/tests/string/70-strchr.c
 lib/tests/scaffold/71-struct-array.c
 lib/tests/scaffold/72-typedef-struct-def.c
+lib/tests/scaffold/72-typedef-struct-def-local.c
 lib/tests/scaffold/73-union-hello.c
 lib/tests/scaffold/73-union.c
 lib/tests/scaffold/74-multi-line-string.c
@@ -221,6 +222,7 @@ if test $compiler = mescc; then
 lib/tests/scaffold/17-compare-unsigned-char-le.c
 lib/tests/scaffold/17-compare-unsigned-short-le.c
 lib/tests/scaffold/66-local-char-array.c
+lib/tests/scaffold/72-typedef-struct-def-local.c
 lib/tests/scaffold/90-goto-var.c
 lib/tests/scaffold/91-goto-array.c
 "

diff --git a/lib/tests/scaffold/72-typedef-struct-def-local.c b/lib/tests/scaffold/72-typedef-struct-def-local.c
new file mode 100644 (file)
index 0000000..c19aec2
--- /dev/null
+++ b/lib/tests/scaffold/72-typedef-struct-def-local.c
@@ -0,0 +1,67 @@
+/* -*-comment-start: "//";comment-end:""-*-
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2017,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ *
+ * This file is part of GNU Mes.
+ *
+ * GNU Mes is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * GNU Mes is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <mes/lib.h>
+#include <stdio.h>
+
+typedef struct foo
+{
+  int i;
+} foo;
+
+typedef struct
+{
+  int i;
+  struct foo f;
+  struct foo *p;
+} bar;
+
+
+bar baz[2] = { 1, 2, 3, 4, 5, 6 };
+
+bar *list[2];
+
+int
+main ()
+{
+  bar one = {0};
+  printf ("one.i\n", one.i);
+  if (one.i != 0)
+    return 1;
+
+  printf ("one.f.i\n", one.f.i);
+  if (one.f.i != 0)
+    return 2;
+
+  bar b0 = {2};
+  struct foo f0 = {0};
+  struct foo *pf = &f0;
+  list[0] = &b0;
+  list[0]->p = pf;
+
+  eputs ("b0.i="); eputs (itoa (b0.i)); eputs ("\n");
+  if (b0.i != 2)
+    return 3;
+  eputs ("b0.p->i="); eputs (itoa (b0.p->i)); eputs ("\n");
+  if (b0.p->i != 0)
+    return 4;
+
+  return 0;
+}

diff --git a/lib/tests/scaffold/72-typedef-struct-def.c b/lib/tests/scaffold/72-typedef-struct-def.c
index 056520bd1bc8aba7fee26f12f6cc5bbd4d529590..f7c8bd5455774372e8f2bb7a86adc56229e99793 100644 (file)
--- a/lib/tests/scaffold/72-typedef-struct-def.c
+++ b/lib/tests/scaffold/72-typedef-struct-def.c
@@ -1,6 +1,6 @@
 /* -*-comment-start: "//";comment-end:""-*-
  * GNU Mes --- Maxwell Equations of Software
- * Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2017,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
  *
  * This file is part of GNU Mes.
  *
@@ -102,33 +102,21 @@ main ()
 #endif
 
   printf ("(*pp)->b.i=%d\n", (*pp)->f.i);
-  if ((*pp)->f.i != 2) return 7;
+  if ((*pp)->f.i != 2)
+    return 7;
 
-  if (baz[0].i != 1) return 8;
+  if (baz[0].i != 1)
+    return 8;
   printf ("baz[0].f.i=%d\n", baz[0].f.i);
-  if (baz[0].f.i != 2) return 9;
+  if (baz[0].f.i != 2)
+    return 9;
 
   printf ("baz[1].i=%d\n", baz[1].i);
-  if (baz[1].i != 4) return 10;
+  if (baz[1].i != 4)
+    return 10;
   printf ("baz[1].f.i=%d\n", baz[1].f.i);
-  if (baz[1].f.i != 5) return 11;
-
-  bar one = {0};
-  printf ("one.i\n", one.i);
-  if (one.i != 0) return 12;
-  printf ("one.f.i\n", one.f.i);
-  if (one.f.i != 0) return 13;
-
-  bar b0 = {2};
-  struct foo f0 = {0};
-  struct foo *pf = &f0;
-  list[0] = &b0;
-  list[0]->p = pf;
-
-  eputs ("b0.i="); eputs (itoa (b0.i)); eputs ("\n");
-  if (b0.i != 2) return 14;
-  eputs ("b0.p->i="); eputs (itoa (b0.p->i)); eputs ("\n");
-  if (b0.p->i != 0) return 15;
+  if (baz[1].f.i != 5)
+    return 11;
 
   return 0;
 }