[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.chill / pr-8894.ch

xx: MODULE

<> USE_SEIZE_FILE "pr-8894-grt.grt" <>
SEIZE m_byte;

SYNMODE m_struct = STRUCT (a, b, c m_byte);

DCL v m_struct;

v.a := 100;

END xx;
Commit	Line	Data
c906108c SS	1	xx: MODULE
	2
	3	<> USE_SEIZE_FILE "pr-8894-grt.grt" <>
	4	SEIZE m_byte;
	5
	6	SYNMODE m_struct = STRUCT (a, b, c m_byte);
	7
	8	DCL v m_struct;
	9
	10	v.a := 100;
	11
	12	END xx;