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

   1 emptybit: MODULE
   2
   3 SYNMODE b8 = BOOLS(8);
   4 SYN bit8 b8 = B'00000000';
   5
   6 SYNMODE char_m = CHARS(40) VARYING;
   7
   8 SYNMODE stru_m = STRUCT (c char_m, b b8, boo BOOL);
   9 DCL xx stru_m;
  10
  11 SYNMODE m_stru = STRUCT (c char_m, i LONG, boo BOOL);
  12 DCL yy m_stru;
  13
  14 SYNMODE m_arr = ARRAY (1:10) LONG;
  15 DCL zz m_arr;
  16
  17 WRITETEXT (stdout, "%C%/", bit8);
  18
  19 END emptybit;