gdb/testsuite/gdb.chill/gch922.ch

   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;