gdb/testsuite/gdb.chill/extstruct.ch

   1 pottendo: MODULE
   2
   3 <> USE_SEIZE_FILE "extstruct-grt.grt" <>
   4 SEIZE m_array3;
   5 SEIZE m_array4;
   6
   7 SYNMODE m_x = STRUCT (i long,
   8                       ar m_array3);
   9 SYNMODE m_y = STRUCT (i long,
  10                       ar m_array4);
  11
  12 DCL x LONG;
  13
  14 x := 10;
  15
  16 END pottendo;