1 files changed, 29 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/result.ch b/gdb/testsuite/gdb.chill/result.ch
new file mode 100644
index 00000000000..b8c65e7d085
--- /dev/null
+++ b/gdb/testsuite/gdb.chill/result.ch
@@ -0,0 +1,29 @@
+test_result:  MODULE
+
+  DCL i INT := 5;
+
+  SYNMODE m_struct = STRUCT (l LONG, b BOOL);
+  DCL v_struct m_struct := [ 20, TRUE ];
+
+  simple_func: PROC () RETURNS (INT);
+    DCL j INT := i;
+    RESULT 10;
+    i + := 2;
+    RESULT j + 2;
+    i + := 2;
+  END simple_func;
+
+  ret_struct: PROC () RETURNS (m_struct)
+    DCL v m_struct := [ 33, FALSE ];
+    RESULT v;
+    v.l := 18;
+  END ret_struct;
+
+  i := simple_func ();
+  i := simple_func ();
+  i * := 10;
+
+  v_struct := ret_struct ();
+
+  i := 33; -- for gdb
+END test_result;