diff options
author | Per Bothner <per@bothner.com> | 1994-06-09 23:13:54 +0000 |
---|---|---|
committer | Per Bothner <per@bothner.com> | 1994-06-09 23:13:54 +0000 |
commit | 605f94ba350cd1a2a72ab918105a0e7a0859eaae (patch) | |
tree | f1f560fad11936c1a2300ca97543074bb2b8c099 /gdb/testsuite/gdb.chill/pr-5020.ch | |
parent | f2f803c158267f01f4c30e80abe52585e8e926f1 (diff) | |
download | gdb-605f94ba350cd1a2a72ab918105a0e7a0859eaae.zip gdb-605f94ba350cd1a2a72ab918105a0e7a0859eaae.tar.gz gdb-605f94ba350cd1a2a72ab918105a0e7a0859eaae.tar.bz2 |
* Makefile.in: Bunch of fixes so it actually works in this
directory. (E.g. add extra ../ where needed.)
Also, add .exe to executables, so we can use suffix rules.
* chexp.exp (test_print_reject): Update syntax error message.
* chillvars.ch (module PR_5020): Moved from here ...
* pr-5022.ch: ... to this new file.
* chillvars.exp, pr-5020.exp (binfile): Add .exe extension.
* chillvars.exp, pr-5020.exp: Don't check all_flag.
* pr-5020.exp: Add more tests; fix "print y pretty" output.
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-5020.ch')
-rw-r--r-- | gdb/testsuite/gdb.chill/pr-5020.ch | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-5020.ch b/gdb/testsuite/gdb.chill/pr-5020.ch new file mode 100644 index 0000000..6aba793 --- /dev/null +++ b/gdb/testsuite/gdb.chill/pr-5020.ch @@ -0,0 +1,19 @@ + +PR_5020: MODULE + dummy_pr_5020: PROC (); + END; + NEWMODE x = STRUCT (l LONG, b BOOL); + NEWMODE aset = SET (aa, bb); + + DCL y ARRAY ('a':'b') x; + DCL setarr ARRAY (aset) x; + DCL intarr ARRAY(10:11) x; + DCL boolarr ARRAY (BOOL) x; + + y('a').l, setarr(aa).l, intarr(10).l, boolarr(FALSE).l := 10; + y('a').b, setarr(aa).b, intarr(10).b, boolarr(FALSE).b := TRUE; + y('b').l, setarr(bb).l, intarr(11).l, boolarr(TRUE).l := 111; + y('b').b, setarr(bb).b, intarr(11).b, boolarr(TRUE).b := FALSE; + + dummy_pr_5020 (); +END; |