diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index b8c9010d28f..49623b59acc 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 f45a299b268..45753d9baea 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