revert 2007-01-11 Nathan Sidwell <nathan@codesourcery.com>

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.fortran / subarray.exp

diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.fortran/subarray.exp
index adb756007787d2dc88efe539fb711511421e0066..fb5ddb5bea78dcaba73c8496ea36c8d7255b378c 100644 (file)
--- a/gdb/testsuite/gdb.fortran/subarray.exp
+++ b/gdb/testsuite/gdb.fortran/subarray.exp
@@ -23,14 +23,12 @@ if $tracelevel then {
        strace $tracelevel
 }
 
-if { [skip_fortran_tests] } { return -1 }
-
 set testfile "subarray"
 set srcfile ${testfile}.f
 set binfile ${objdir}/${subdir}/${testfile}
 
-if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
-       executable {debug f77}] != ""} {
+if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
+    untested "Couldn't compile ${srcfile}"
     return -1
 }