aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Burgess <andrew.burgess@embecosm.com>2020-07-15 16:05:24 +0100
committerAndrew Burgess <andrew.burgess@embecosm.com>2020-07-15 16:12:17 +0100
commitfe07b5721a64a84e36ec63e15638b87655faf1bf (patch)
tree5b8b63f3b57a35835c4a4edbf5b574b92445e5f8
parent04c662e2b66bedd050f97adec19afe0fcfce9ea7 (diff)
downloadgdb-fe07b5721a64a84e36ec63e15638b87655faf1bf.zip
gdb-fe07b5721a64a84e36ec63e15638b87655faf1bf.tar.gz
gdb-fe07b5721a64a84e36ec63e15638b87655faf1bf.tar.bz2
gdb/testsuite: Update test pattern in ptype-on-functions.exp
It was pointed out that the recently added test gdb.fortran/ptype-on-functions.exp fails on older versions of gfortran. This is because the ABI for passing string lengths changed from a 4-byte to 8-byte value (on some targets). This change is documented here: https://gcc.gnu.org/gcc-8/changes.html. Character variables longer than HUGE(0) elements are now possible on 64-bit targets. Note that this changes the procedure call ABI for all procedures with character arguments on 64-bit targets, as the type of the hidden character length argument has changed. The hidden character length argument is now of type INTEGER(C_SIZE_T). This commit just relaxes the pattern to accept any size of integer for the string length argument. gdb/testsuite/ChangeLog: * gdb.fortran/ptype-on-functions.exp: Make the result pattern more generic.
-rw-r--r--gdb/testsuite/ChangeLog5
-rw-r--r--gdb/testsuite/gdb.fortran/ptype-on-functions.exp2
2 files changed, 6 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index d056485..9559355 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2020-07-15 Andrew Burgess <andrew.burgess@embecosm.com>
+
+ * gdb.fortran/ptype-on-functions.exp: Make the result pattern more
+ generic.
+
2020-07-15 Tom de Vries <tdevries@suse.de>
* gdb.trace/entry-values.exp: Expect "call" instead of "callq" if
diff --git a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
index dde6f48..9d44753 100644
--- a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
+++ b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
@@ -45,7 +45,7 @@ gdb_test "ptype fun_ptr" \
"type = PTR TO -> \\( integer\\(kind=4\\) \\(\\) \\(REF TO -> \\( integer\\(kind=4\\) \\)\\) \\)"
gdb_test "ptype say_string" \
- "type = void \\(character\\*\\(\\*\\), integer\\(kind=8\\)\\)"
+ "type = void \\(character\\*\\(\\*\\), integer\\(kind=\\d+\\)\\)"
gdb_test "ptype say_array" \
"type = void \\(integer\\(kind=4\\) \\(:,:\\)\\)"