diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/lbound-ubound.exp')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/lbound-ubound.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.fortran/lbound-ubound.exp b/gdb/testsuite/gdb.fortran/lbound-ubound.exp index f8e256c..75b8feb 100644 --- a/gdb/testsuite/gdb.fortran/lbound-ubound.exp +++ b/gdb/testsuite/gdb.fortran/lbound-ubound.exp @@ -25,7 +25,7 @@ if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \ return -1 } -if ![fortran_runto_main] { +if {![fortran_runto_main]} { return -1 } @@ -61,7 +61,7 @@ while { $test_count < 500 } { } } - if ($found_dealloc_breakpoint) { + if {$found_dealloc_breakpoint} { break } @@ -160,7 +160,7 @@ while { $test_count < 500 } { # Finally, check that asking for a dimension above the valid # range gives the expected error. - set bad_dim [expr $upper_dim + 1] + set bad_dim [expr {$upper_dim + 1}] gdb_test "p lbound ($array_name, $bad_dim)" \ "LBOUND dimension must be from 1 to $upper_dim" \ "check error message for lbound of dim = $bad_dim" |