gdb/testsuite/gdb.chill/extstruct.ch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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;