binutils-gdb/gdb/testsuite/gdb.chill/gch1272.ch
1999-04-16 01:35:26 +00:00

22 lines
311 B
Plaintext

gch1272: MODULE
SYNMODE m_array = ARRAY (0:99) INT;
DCL foo m_array;
SYNMODE m_xxx = ARRAY (1:10) LONG;
SYNMODE m_struct = STRUCT (i LONG, b BOOL);
SYNMODE m_bar = ARRAY (-10:20) m_struct;
DCL bar m_bar;
SYNMODE m_ps = POWERSET LONG (0:20);
brrr: PROC ()
END;
foo := [ (*): 222 ];
brrr ();
END gch1272;