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

[platform/upstream/binutils.git] / gdb / testsuite / gdb.ada / array_return.exp

diff --git a/gdb/testsuite/gdb.ada/array_return.exp b/gdb/testsuite/gdb.ada/array_return.exp
index 2071dfd..ad8f53c 100644 (file)
--- a/gdb/testsuite/gdb.ada/array_return.exp
+++ b/gdb/testsuite/gdb.ada/array_return.exp
@@ -21,16 +21,14 @@ if $tracelevel then {
 
 load_lib "ada.exp"
 
-if { [skip_ada_tests] } { return -1 }
-
 set testdir "array_return"
 set testfile "${testdir}/p"
 set srcfile ${srcdir}/${subdir}/${testfile}.adb
 set binfile ${objdir}/${subdir}/${testfile}
 
 file mkdir ${objdir}/${subdir}/${testdir}
-if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
-    return -1
+if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
+  return -1
 }
 
 gdb_exit