From d39e3a369f6952dad85821e15a3a8814ca587199 Mon Sep 17 00:00:00 2001
From: janis <janis@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 31 Mar 2005 00:28:49 +0000
Subject: [PATCH] 	* lib/scantree.exp (scan-tree-dump,
 scan-tree-dump-times, 	scan-tree-dump-not, scan-tree-dump-dem,
 scan-tree-dump-dem-not): 	Strip options from test name.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97298 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog        |  6 ++++++
 gcc/testsuite/lib/scantree.exp | 15 ++++++++++-----
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 411540f55f1c..0dad075ffa6f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-30  Janis Johnson  <janis187@us.ibm.com>
+
+	* lib/scantree.exp (scan-tree-dump, scan-tree-dump-times,
+	scan-tree-dump-not, scan-tree-dump-dem, scan-tree-dump-dem-not):
+	Strip options from test name.
+
 2005-03-31  Jan Hubicka  <jh@suse.cz>
 
 	* gcc.dg/varpool-1.c: New testcase.
diff --git a/gcc/testsuite/lib/scantree.exp b/gcc/testsuite/lib/scantree.exp
index 76d1a59fb607..935e068761e1 100644
--- a/gcc/testsuite/lib/scantree.exp
+++ b/gcc/testsuite/lib/scantree.exp
@@ -49,7 +49,8 @@ proc scan-tree-dump { args } {
     upvar 2 name testcase
 
     # This must match the rule in gcc-dg.exp.
-    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
+    set src [file tail [lindex $testcase 0]]
+    set output_file "[glob $src.t??.[lindex $args 1]]"
 
     set fd [open $output_file r]
     set text [read $fd]
@@ -91,7 +92,8 @@ proc scan-tree-dump-times { args } {
     upvar 2 name testcase
 
     # This must match the rule in gcc-dg.exp.
-    set output_file "[glob [file tail $testcase].t??.[lindex $args 2]]"
+    set src [file tail [lindex $testcase 0]]
+    set output_file "[glob $src.t??.[lindex $args 2]]"
 
     set fd [open $output_file r]
     set text [read $fd]
@@ -128,7 +130,8 @@ proc scan-tree-dump-not { args } {
     }
 
     upvar 2 name testcase
-    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
+    set src [file tail [lindex $testcase 0]]
+    set output_file "[glob $src.t??.[lindex $args 1]]"
 
     set fd [open $output_file r]
     set text [read $fd]
@@ -179,7 +182,8 @@ proc scan-tree-dump-dem { args } {
     }
 
     upvar 2 name testcase
-    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
+    set src [file tail [lindex $testcase 0]]
+    set output_file "[glob $src.t??.[lindex $args 1]]"
 
     set fd [open "| $cxxfilt < $output_file" r]
     set text [read $fd]
@@ -229,7 +233,8 @@ proc scan-tree-dump-dem-not { args } {
     }
 
     upvar 2 name testcase
-    set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
+    set src [file tail [lindex $testcase 0]]
+    set output_file "[glob $src.t??.[lindex $args 1]]"
 
     set fd [open "| $cxxfilt < $output_file" r]
     set text [read $fd]
-- 
2.47.3