mescc: Use "tag" for tag namespace.
[mes.git] / scaffold / tests / 71-struct-array.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * Mes is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 #include "30-test.i"
22 #include <stdio.h>
23
24 struct foo;
25
26 struct foo* krak;
27
28 typedef struct foo foo_struct;
29
30 struct foo
31 {
32   int bar[2];
33 };
34   
35 int a, b;
36 int i, *j;
37 int *k = 0, l;
38
39 typedef struct baz
40 {
41   int bar;
42   //struct baz *f, *g;
43   struct baz *f;
44   struct baz *g;
45 } baz;
46
47 int
48 test ()
49 {
50   foo_struct f;
51   f.bar[0] = 0x22;
52   f.bar[1] = 0x34;
53   printf ("eentje: %d\n", f.bar[0]);
54   printf ("tweetje: %d\n", f.bar[1]);
55
56   struct foo *g = &f;
57   printf ("punter eentje: %d\n", g->bar[0]);
58   printf ("punter tweetje: %d\n", g->bar[1]);
59
60   char *strings[] = { "one\n", "two\n", "three\n", NULL };
61   char **p = strings;
62   while (*p) puts (*p++);
63
64   return 0;
65 }