This is the mail archive of the
gcc@gcc.gnu.org
mailing list for the GCC project.
Re: Can't run gfortran testsuite
- From: Janis Johnson <janis187 at us dot ibm dot com>
- To: NightStrike <nightstrike at gmail dot com>
- Cc: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>, fortran at gcc dot gnu dot org, gcc at gcc dot gnu dot org
- Date: Mon, 13 Jul 2009 11:10:03 -0700
- Subject: Re: Can't run gfortran testsuite
- References: <b609cb3b0907090934l65db3734x5d3719b2f583c266@mail.gmail.com> <20090709185208.GA58596@troutmask.apl.washington.edu> <b609cb3b0907100914j26cf5a70ia019d4c54418e33e@mail.gmail.com> <b609cb3b0907121240r446d6d5eo1d3ddb6a69f9688b@mail.gmail.com>
- Reply-to: janis187 at us dot ibm dot 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]]
}