gdb/testsuite/gdb.chill/pr-8405.ch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

emptybit: MODULE

SYNMODE b8 = BOOLS(8);
SYN bit8 b8 = B'00000000';

SYNMODE char_m = CHARS(40) VARYING;

SYNMODE stru_m = STRUCT (c char_m, b b8, boo BOOL);
DCL xx stru_m;

SYNMODE m_stru = STRUCT (c char_m, i LONG, boo BOOL);
DCL yy m_stru;

SYNMODE m_arr = ARRAY (1:10) LONG;
DCL zz m_arr;

WRITETEXT (stdout, "%C%/", bit8);

END emptybit;