Re: Can't run gfortran testsuite

[Janis Johnson <janis187@us.ibm.com>]

On Sun, 2009-07-12 at 15:40 -0400, NightStrike wrote:
> On Fri, Jul 10, 2009 at 12:14 PM, NightStrike<nightstrike@gmail.com> wrote:
> > On Thu, Jul 9, 2009 at 2:52 PM, Steve
> > Kargl<sgk@troutmask.apl.washington.edu> wrote:
> >> On Thu, Jul 09, 2009 at 12:34:00PM -0400, NightStrike wrote:
> >>> I have been trying to run the gfortran testsuite for a while now, and
> >>> it keeps falling apart.  Dominiq tried to find a revision that might
> >>> attribute to it, and though r147421 might have something to do with
> >>> it:  http://gcc.gnu.org/viewcvs?view=rev&revision=147421
> >>>
> >>> These are the errors I get that prevent the testsuite from running
> >>> more than a few thousand tests:
> >>>
> >>> ERROR: tcl error sourcing
> >>> /dev/shm/build/gcc-svn/gcc/gcc/testsuite/gfortran.dg/dg.exp.
> >>> ERROR: can't read "status": no such variable

Does this help?

Index: gcc/testsuite/lib/gcc-dg.exp
===================================================================
--- gcc/testsuite/lib/gcc-dg.exp	(revision 149420)
+++ gcc/testsuite/lib/gcc-dg.exp	(working copy)
@@ -205,9 +205,12 @@
 	global shouldfail
 	set result [eval [list saved_${tool}_load $program] $args]
 	if { $shouldfail != 0 } {
+	    set status "unresolved"
 	    switch [lindex $result 0] {
 		"pass" { set status "fail" }
 		"fail" { set status "pass" }
+		"xpass" { set status "xfail" }
+		"xfail" { set status "xpass" }
 	    }
 	    set result [list $status [lindex $result 1]]
 	}