diff options
| author | Per Bothner <per@bothner.com> | 1994-06-14 23:23:14 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1994-06-14 23:23:14 +0000 |
| commit | ccda44f92fd49b95bd437a1c153b000647cc37ae (patch) | |
| tree | 9bb112f2899f20b58f78f49ae1bd200ef144abf1 /gdb/testsuite/gdb.chill/result.ch | |
| parent | f2d9c058026d32e92d1593a084bcf2e34e915f92 (diff) | |
| download | fsf-binutils-gdb-ccda44f92fd49b95bd437a1c153b000647cc37ae.zip fsf-binutils-gdb-ccda44f92fd49b95bd437a1c153b000647cc37ae.tar.gz fsf-binutils-gdb-ccda44f92fd49b95bd437a1c153b000647cc37ae.tar.bz2 | |
* result.ch, result.exp, Makefile.in: New test case.
* pr-4975.ch, pr-4975-grt.ch, pr-4975.exp, Makefile.in: Ditto.
Diffstat (limited to 'gdb/testsuite/gdb.chill/result.ch')
| -rw-r--r-- | gdb/testsuite/gdb.chill/result.ch | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/result.ch b/gdb/testsuite/gdb.chill/result.ch new file mode 100644 index 0000000..71e6400 --- /dev/null +++ b/gdb/testsuite/gdb.chill/result.ch @@ -0,0 +1,16 @@ +test_result: MODULE + + DCL i INT := 5; + + simple_func: PROC () RETURNS (INT); + DCL j INT := i; + RESULT 10; + i + := 2; + RESULT j + 2; + i + := 2; + END simple_func; + + i := simple_func (); + i := simple_func (); + i * := 10; +END test_result; |