[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.chill / gch922.ch

xx : module
  
dcl a chars(200) varying init := (70)'^(0)' // "Jason""^(0,5)""Hugo^(10)" // (70)'^(1)';
dcl b chars(20) varying init := "Jason""^(0,5)""Hugo^(10)";
dcl c chars(256) varying init := (70)'a' // "^(0,5)Jason" // (70)'b';
dcl d char init := '^(11)';

bulk: PROC ();
END bulk;

a := (50) '^(255,0,222,127)';
b := (1)'^(200)';
d := 'a';

c:= (256)" ";

DO FOR i:= 0 BY 1 TO 255;
   c (255-i) := char (i);
OD;
  
bulk ();

end xx;
Commit	Line	Data
6bf53072 WM	1	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;