diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/pkd_arr_elem.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/pkd_arr_elem.exp | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.ada/pkd_arr_elem.exp b/gdb/testsuite/gdb.ada/pkd_arr_elem.exp index 8d3a385..85458aa 100644 --- a/gdb/testsuite/gdb.ada/pkd_arr_elem.exp +++ b/gdb/testsuite/gdb.ada/pkd_arr_elem.exp @@ -28,8 +28,18 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/failure.adb] runto "failure.adb:$bp_location" -gdb_test "print test" \ - "= \\(size => 100, str => \\(33 'A', nul <repeats 99 times>\\), length => 1\\)" +# Print Test. The order of the components depends on which version of +# the compiler being used, as newer version can re-order the order +# of the components. Accept both known orders. +set test "print test" +gdb_test_multiple "$test" $test { + -re "= \\(size => 100, length => 1, str => \\(33 'A', nul <repeats 99 times>\\)\\).*$gdb_prompt $" { + pass $test + } + -re "= \\(size => 100, str => \\(33 'A', nul <repeats 99 times>\\), length => 1\\).*$gdb_prompt $" { + pass $test + } +} gdb_test "print test.str" \ "= \\(33 'A', nul <repeats 99 times>\\)" |