[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-fortran
Subject:    Re: gfortran testsuite regression
From:       Janis Johnson <janis187 () us ! ibm ! com>
Date:       2005-03-30 21:53:30
Message-ID: 20050330215330.GA6497 () us ! ibm ! com
[Download RAW message or body]

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]

[prev in list] [next in list] [prev in thread] [next in thread]