Add support to skip import libraries for performance reasons and instead

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.chill / result.ch

diff --git a/gdb/testsuite/gdb.chill/result.ch b/gdb/testsuite/gdb.chill/result.ch
index 71e64005d5207242606bf656c38c61c9c295ed31..b8c65e7d08503386babb772094d5e216460783e5 100644 (file)
--- a/gdb/testsuite/gdb.chill/result.ch
+++ b/gdb/testsuite/gdb.chill/result.ch
@@ -2,6 +2,9 @@ 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;
@@ -10,7 +13,17 @@ test_result:  MODULE
     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;