URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.chill/] [gch1041.ch] - Blame information for rev 1774

Line No.	Rev	Author	Line
1	106	markom	`arr: MODULE`
2
3			`SYNMODE m_chars = CHARS(30) VARYING;`
4			`SYNMODE m_s = STRUCT (l LONG, c m_chars, b BOOL);`
5
6			`DCL a1 ARRAY (1:1000) LONG INIT := [(5:100): 33, (1:4): 44, (ELSE): 55 ];`
7			`DCL a2 ARRAY (1:10) m_s INIT := [(*): [ 22, "mowi", TRUE ] ];`
8			`DCL a3 ARRAY (CHAR) CHAR INIT := [(*): 'X'];`
9
10			`SYNMODE m_set = SET (e1, e2, e3, e4, e5, e6, e7, e9, e10);`
11			`DCL a4 ARRAY (m_set) BOOL INIT := [(*): TRUE];`
12
13			`a1 := [(5:100): 33, (1:4): 44, (ELSE): 55 ];`
14			`a1 := [ (*): 22 ];`
15			`a2 := [(*): [ 22, "mowi", TRUE ] ];`
16
17			`END arr;`