1 files changed, 0 insertions, 86 deletions
diff --git a/gdb/testsuite/gdb.chill/tuples.ch b/gdb/testsuite/gdb.chill/tuples.ch
deleted file mode 100644
index 24709f8..0000000
--- a/gdb/testsuite/gdb.chill/tuples.ch
+++ /dev/null
@@ -1,86 +0,0 @@
-x: MODULE
-
-SYNMODE m_arri = ARRAY(1:5) INT;
-DCL v_arri m_arri := [ -1, -2, -3, -4, -5 ];
-
-SYNMODE m_arrui = ARRAY(1:5) UINT;
-DCL v_arrui m_arrui := [ 1, 2, 3, 4, 5 ];
-
-SYNMODE r1 = RANGE (1:5);
-SYNMODE m_arrb = ARRAY(r1) BYTE;
-DCL v_arrb m_arrb := [ -3, -4, -5, -6, -7 ];
-
-SYNMODE m_arrub = ARRAY(r1) UBYTE;
-DCL v_arrub m_arrub := [ 3, 4, 5, 6, 7 ];
-
-SYNMODE m_arrc = ARRAY (1:5) CHAR;
-DCL v_arrc m_arrc := [ '1', '2', '3', '4', '5' ];
-
-SYNMODE m_ps = POWERSET r1;
-DCL v_ps m_ps := [ 1, 3, 5 ];
-
-DCL v_cv CHARS(20) VARYING := "foo";
-
-SYNMODE m_arrbool = ARRAY(r1) BOOL;
-DCL v_arrbool m_arrbool := [ true, false, true, false, true ];
-
-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;
-
-setmode: MODULE /* This is from Cygnus PR chill/5024. */
-
-NEWMODE day = SET( monday, tuesday, wednesday, thursday, friday, saturday, sunday );
-NEWMODE dow = POWERSET day;
-
-DCL d day;
-DCL w dow;
-
-printdow: PROC( w dow );
-  DCL d day;
-  DO FOR d in w;
-    WRITETEXT( stdout, "%C ", d );
-  OD;
-END;
-
-d := monday;
-w := dow[monday : friday];
-printdow( w );
-
-printdow( dow[LOWER(dow) : UPPER(dow)] );
-
-END setmode;
-
-PR8643: MODULE
-
-SYNMODE m_set = SET (a, b, c, d);
-SYNMODE m_ps = POWERSET m_set;
-
-SYNMODE m_s1 = STRUCT (str CHARS(40) VARYING, i INT, ps m_ps);
-DCL vs1 m_s1;
-
-SYNMODE m_s2 = STRUCT (i LONG, s m_s1);
-DCL vs2 m_s2;
-
-SYNMODE m_arr = ARRAY (1:3) BYTE;
-SYNMODE m_s3 = STRUCT (i LONG, a m_arr);
-DCL vs3 m_s3;
-
-DCL i LONG;
-
-i := 24;
-
-END PR8643;