gdb/testsuite/gdb.chill/gch1272.ch

   1 gch1272: MODULE
   2
   3 SYNMODE m_array = ARRAY (0:99) INT;
   4 DCL foo m_array;
   5
   6 SYNMODE m_xxx = ARRAY (1:10) LONG;
   7
   8 SYNMODE m_struct = STRUCT (i LONG, b BOOL);
   9 SYNMODE m_bar = ARRAY (-10:20) m_struct;
  10 DCL bar m_bar;
  11
  12 SYNMODE m_ps = POWERSET LONG (0:20);
  13
  14 brrr: PROC ()
  15 END;
  16
  17 foo := [ (*): 222 ];
  18
  19 brrr ();
  20
  21 END gch1272;