ERROR in the gfortran testsuite

[Andrew Pinski <pinskia at physics dot uc dot edu>]

Right now on powerpc-darwin with the following versions:
Expect version is       5.38.0
Tcl version is          8.4
Framework version is    1.4.4

I get the following failure in the gfortran-
ERROR: tcl error sourcing  
/Users/pinskia/src/local3/gcc/gcc/testsuite/gfortran.fortran-torture/ 
execute/execute.exp.
ERROR: expected boolean value but got ""
    while executing
"if { $done_p } {
            return
        }"
    invoked from within
"if [file exists [file rootname $src].x] {
        verbose "Using alternate driver [file rootname [file tail  
$src]].x" 2
        set done_p 0
        catch "set done_p \[so..."
    (procedure "fortran-torture-execute" line 10)
    invoked from within
"fortran-torture-execute $testcase"
    ("foreach" body line 5)
    invoked from within
"foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f90]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-to..."
    (file  
"/Users/pinskia/src/local3/gcc/gcc/testsuite/gfortran.fortran-torture/ 
execute/execute.exp" line 46)
    invoked from within
"source  
/Users/pinskia/src/local3/gcc/gcc/testsuite/gfortran.fortran-torture/ 
execute/execute.exp"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 source  
/Users/pinskia/src/local3/gcc/gcc/testsuite/gfortran.fortran-torture/ 
execute/execute.exp"
    invoked from within
"catch "uplevel #0 source $test_file_name""
testcase  
/Users/pinskia/src/local3/gcc/gcc/testsuite/gfortran.fortran-torture/ 
execute/execute.exp completed in 217 seconds

I think this is due to the empty file  
"testsuite/gfortran.fortran-torture/execute/forall_3.x" but I don't  
know for sure.  Could someone check to make sure and fix this?

Thanks,
Andrew Pinski