diff options
| author | Per Bothner <per@bothner.com> | 1995-09-27 18:51:33 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-09-27 18:51:33 +0000 |
| commit | 658f132580200def7724c01623f99b97c2099daf (patch) | |
| tree | 2c48d4a1b234b6b70c50f546945dcef6ff525a28 /gdb/testsuite/gdb.chill/tuples.ch | |
| parent | 4c2260aa5c261f7bfb26dcf3aa7c67876720b17e (diff) | |
| download | gdb-658f132580200def7724c01623f99b97c2099daf.zip gdb-658f132580200def7724c01623f99b97c2099daf.tar.gz gdb-658f132580200def7724c01623f99b97c2099daf.tar.bz2 | |
* tuples.ch. tuples.exp: Add new test for setting a variant record
using a tuple, and access the fields.
Diffstat (limited to 'gdb/testsuite/gdb.chill/tuples.ch')
| -rw-r--r-- | gdb/testsuite/gdb.chill/tuples.ch | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/tuples.ch b/gdb/testsuite/gdb.chill/tuples.ch index 399773a..83381eb 100644 --- a/gdb/testsuite/gdb.chill/tuples.ch +++ b/gdb/testsuite/gdb.chill/tuples.ch @@ -28,6 +28,15 @@ DCL j r1 := 4; DCL i INT; +newmode vstruct = struct (a, b long, + case b of + (42): ch8 chars(20), + (52): i long + else ch1 char + esac); + +DCL vstr vstruct := [ .a: 10, .b: 52, .i: 100 ]; + i := 0; END x; |