diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/huge.exp')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/huge.exp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/testsuite/gdb.fortran/huge.exp b/gdb/testsuite/gdb.fortran/huge.exp index 35bc6c8..03ebdaa 100644 --- a/gdb/testsuite/gdb.fortran/huge.exp +++ b/gdb/testsuite/gdb.fortran/huge.exp @@ -27,7 +27,7 @@ load_lib fortran.exp standard_testfile .F90 -set max [expr 2 * 1024 * 1024] +set max [expr {2 * 1024 * 1024}] set min 16 set opts {} @@ -35,7 +35,7 @@ lappend opts debug lappend opts f90 set compilation_succeeded 0 -for { set size [expr $max] } { $size >= $min } { set size [expr $size / 2] } { +for { set size [expr {$max}] } { $size >= $min } { set size [expr {$size / 2}] } { set try_opts [concat $opts [list additional_flags=-DCRASH_GDB=$size]] with_test_prefix CRASH_GDB=$size { if { [build_executable $testfile.exp $testfile $srcfile $try_opts] == -1 } { @@ -46,10 +46,10 @@ for { set size [expr $max] } { $size >= $min } { set size [expr $size / 2] } { set compilation_succeeded 1 break } -require {expr $compilation_succeeded} +require {expr {$compilation_succeeded}} # Start with a fresh gdb. -clean_restart ${binfile} +clean_restart ${::testfile} save_vars { timeout } { set timeout 30 @@ -92,6 +92,6 @@ save_vars { timeout } { unsupported $test } else { # At 112 passes with and without the fix, so use 111. - gdb_assert {$space_used < [expr 111 * 4 * $size] } $test + gdb_assert {$space_used < [expr {111 * 4 * $size}] } $test } } |