This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: gfortran testsuite regression
- From: Janis Johnson <janis187 at us dot ibm dot com>
- To: François-Xavier Coudert <Francois-Xavier dot Coudert at lcp dot u-psud dot fr>
- Cc: Dorit Naishlos <DORIT at il dot ibm dot com>, dnovillo at redhat dot com, gfortran <fortran at gcc dot gnu dot org>, gcc-patches at gcc dot gnu dot org, Janis Johnson <janis187 at us dot ibm dot com>, Keith Besaw <kbesaw at us dot ibm dot com>
- Date: Wed, 30 Mar 2005 13:53:30 -0800
- Subject: Re: gfortran testsuite regression
- References: <OF92F92B0E.07BA7B32-ONC2256FD4.003C1F60-C2256FD4.003F3DDB@il.ibm.com> <424A9271.5090100@lcp.u-psud.fr>
On Wed, Mar 30, 2005 at 01:50:09PM +0200, François-Xavier Coudert wrote:
> You're right. In every case of failure I see, the "-O" is present.
This fixes the gfortran vect errors but hasn't been thoroughly tested
yet. I'll submit it formally after more testing of the rest of the
testsuite.
Janis
--- gcc/testsuite/lib/scantree.exp.orig 2005-03-30 13:49:43.350996704 -0800
+++ gcc/testsuite/lib/scantree.exp 2005-03-30 13:46:50.207957184 -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 2]]"
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 2]]"
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 2]]"
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 2]]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]