diff options
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/array-slices.exp | 16 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 4061d17..19b423b 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2020-10-22 Andrew Burgess <andrew.burgess@embecosm.com> + + * gdb.fortran/array-slices.exp: Add a new test. + 2020-10-21 Gary Benson <gbenson@redhat.com> * gdb.mi/mi-fullname-deleted.exp: Fix substituted diff --git a/gdb/testsuite/gdb.fortran/array-slices.exp b/gdb/testsuite/gdb.fortran/array-slices.exp index 31f95a3..aa6bc63 100644 --- a/gdb/testsuite/gdb.fortran/array-slices.exp +++ b/gdb/testsuite/gdb.fortran/array-slices.exp @@ -69,3 +69,19 @@ foreach result $array_contents msg $message_strings { } gdb_continue_to_breakpoint "continue to Final Breakpoint" + +# Next test that asking for an array with stride at the CLI gives an +# error. +clean_restart ${testfile} + +if ![fortran_runto_main] then { + perror "couldn't run to main" + continue +} + +gdb_breakpoint "show" +gdb_continue_to_breakpoint "show" +gdb_test "up" ".*" +gdb_test "p array (1:10:2, 1:10:2)" \ + "Fortran array strides are not currently supported" \ + "using array stride gives an error" |