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

Subversion Repositories or1k

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

Line No.	Rev	Author	Line
1	106	markom	`xx : module`
2
3			`dcl a chars(200) varying init := (70)'^(0)' // "Jason""^(0,5)""Hugo^(10)" // (70)'^(1)';`
4			`dcl b chars(20) varying init := "Jason""^(0,5)""Hugo^(10)";`
5			`dcl c chars(256) varying init := (70)'a' // "^(0,5)Jason" // (70)'b';`
6			`dcl d char init := '^(11)';`
7
8			`bulk: PROC ();`
9			`END bulk;`
10
11			`a := (50) '^(255,0,222,127)';`
12			`b := (1)'^(200)';`
13			`d := 'a';`
14
15			`c:= (256)" ";`
16
17			`DO FOR i:= 0 BY 1 TO 255;`
18			`c (255-i) := char (i);`
19			`OD;`
20
21			`bulk ();`
22
23			`end xx;`