diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/array-slices.exp | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index b8c9010..49623b5 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2021-01-15 Tom de Vries <tdevries@suse.de> + + PR testsuite/26997 + * gdb.fortran/array-slices.exp (run_test): Avoid pointer arithmetic + when adding sizeof. + 2021-01-14 Tom de Vries <tdevries@suse.de> PR testsuite/24590 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 |