This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] testsuite (checked in) fix errors from gfortran vect tests
- From: Janis Johnson <janis187 at us dot ibm dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Wed, 30 Mar 2005 16:29:43 -0800
- Subject: [PATCH] testsuite (checked in) fix errors from gfortran vect tests
This patch fixes the ERRORs from the gfortran vect tests. Those tests
use gfortran-dg-runtest, which cycles through a list of optimization
options using DejaGnu support that appends the compilation flags to the
test name. This patch strips the options from the names.
Tested on powerpc64-linux, checked in on mainline.
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.
--- gcc/testsuite/lib/scantree.exp.orig 2005-03-30 13:49:43.350996704 -0800
+++ gcc/testsuite/lib/scantree.exp 2005-03-30 15:55:53.733950520 -0800
@@ -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]