ERROR in the gfortran testsuite

[Andrew Pinski]

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