diff options
author | Wilfried Moser <moser@cygnus> | 1996-03-06 07:44:46 +0000 |
---|---|---|
committer | Wilfried Moser <moser@cygnus> | 1996-03-06 07:44:46 +0000 |
commit | 6bf53072e9bb76a53b38c1be4226de67af3adba2 (patch) | |
tree | 2d3c78d4d0ec8e4e642677b5db9e6487ed71e1eb /gdb/testsuite/gdb.chill/gch922.ch | |
parent | b4692cbc5e7a32aa7d87428771ad7a3436aef666 (diff) | |
download | fsf-binutils-gdb-6bf53072e9bb76a53b38c1be4226de67af3adba2.zip fsf-binutils-gdb-6bf53072e9bb76a53b38c1be4226de67af3adba2.tar.gz fsf-binutils-gdb-6bf53072e9bb76a53b38c1be4226de67af3adba2.tar.bz2 |
* gch922.{ch,exp}, powerset.{ch,exp}: New test cases.
* builtins.exp, chillvars.exp, misc.exp, tests1.exp: Updated
due to new format of nonprintable characters (control sequence
instead of C'xx').
Diffstat (limited to 'gdb/testsuite/gdb.chill/gch922.ch')
-rw-r--r-- | gdb/testsuite/gdb.chill/gch922.ch | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/gch922.ch b/gdb/testsuite/gdb.chill/gch922.ch new file mode 100644 index 0000000..b3e8a23 --- /dev/null +++ b/gdb/testsuite/gdb.chill/gch922.ch @@ -0,0 +1,23 @@ +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;
\ No newline at end of file |