binutils-gdb/gdb/testsuite/gdb.chill/extstruct.ch
Wilfried Moser d59558827e * builtins.ch, builtins.exp: Enhance test case.
* extstruct.ch, extstruct-grt.ch, extstruct.exp: New test case.
1996-01-29 08:09:04 +00:00

17 lines
234 B
Plaintext

pottendo: MODULE
<> USE_SEIZE_FILE "extstruct-grt.grt" <>
SEIZE m_array3;
SEIZE m_array4;
SYNMODE m_x = STRUCT (i long,
ar m_array3);
SYNMODE m_y = STRUCT (i long,
ar m_array4);
DCL x LONG;
x := 10;
END pottendo;