diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/array-slices.exp')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/array-slices.exp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.fortran/array-slices.exp b/gdb/testsuite/gdb.fortran/array-slices.exp index f45a299..45753d9 100644 --- a/gdb/testsuite/gdb.fortran/array-slices.exp +++ b/gdb/testsuite/gdb.fortran/array-slices.exp @@ -208,7 +208,7 @@ proc run_test { repack } { set start_addr [get_hexadecimal_valueof "&${full_var_name}" \ "start unknown"] set end_addr [get_hexadecimal_valueof \ - "(&${full_var_name}) + sizeof (${full_var_name})" \ + "$start_addr + sizeof (${full_var_name})" \ "end unknown"] # The Fortran compiler can choose to either send a descriptor that |