aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.chill/pr-4975.ch
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-4975.ch')
-rw-r--r--gdb/testsuite/gdb.chill/pr-4975.ch43
1 files changed, 0 insertions, 43 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-4975.ch b/gdb/testsuite/gdb.chill/pr-4975.ch
deleted file mode 100644
index dbba064..0000000
--- a/gdb/testsuite/gdb.chill/pr-4975.ch
+++ /dev/null
@@ -1,43 +0,0 @@
-/*
->Number: 4975
->Category: chill
->Synopsis: Segmentation fault of gdb 4.12.1
->Description:
-
- Problem: gdb 4.12.1 segment faults with following chill program.
-*/
-
-gdb_bug: MODULE
-
-<> USE_SEIZE_FILE "pr-4975-grt.grt" <>
-SEIZE is_channel_type;
-
- SYNMODE chan_type = POWERSET is_channel_type;
- SYN hugo chan_type = [chan_1, chan_3];
-
-DCL otto is_channel_type := chan_2;
-
-x: PROC ();
-
- IF otto IN hugo THEN
- WRITETEXT (STDOUT, "otto IN hugo%/");
- ELSE
- WRITETEXT (STDOUT, "You loose%/");
- FI;
-END x;
-
-x ();
-
-END gdb_bug;
-/*
-Compiled with:
-
- chill -S -fgrant-only pr-315-grt.ch
- chill -g -o pr-315 pr-315.ch
-
-Run gdb with
-
- gdb pr-315 --readnow
-
-will result in a sigsegv in file gdbtypes.c function force_to_range_type.
-*/