diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/derived-type-striding.exp | 6 |
2 files changed, 11 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 7d41fad..12e351f 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2019-12-09 Andrew Burgess <andrew.burgess@embecosm.com> + * gdb.fortran/derived-type-striding.exp: KFAIL if we are using a + broken version of GCC. + +2019-12-09 Andrew Burgess <andrew.burgess@embecosm.com> + * gdb.fortran/info-modules.exp: Rewrite to make use of new sym-info-cmds library. * gdb.fortran/info-types.exp: Likewise. diff --git a/gdb/testsuite/gdb.fortran/derived-type-striding.exp b/gdb/testsuite/gdb.fortran/derived-type-striding.exp index a2590a9..dc5ef96 100644 --- a/gdb/testsuite/gdb.fortran/derived-type-striding.exp +++ b/gdb/testsuite/gdb.fortran/derived-type-striding.exp @@ -20,6 +20,10 @@ if {[skip_fortran_tests]} { return -1 } standard_testfile ".f90" +# Unfortunately recent versions of GCC broke the stride information in +# the DEBUG so tests in this file will fail. +set gcc_with_broken_stride [test_compiler_info {gcc-[89]-*}] + if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \ {debug f90}]} { return -1 @@ -31,7 +35,9 @@ if {![runto [gdb_get_line_number "post_init"]]} then { } # Test homogeneous derived type. +if { $gcc_with_broken_stride } { setup_kfail *-*-* gcc/92775 } gdb_test "p point_dimension" "= \\\(2, 2, 2, 2, 2, 2, 2, 2, 2\\\)" # Test mixed type derived type. +if { $gcc_with_broken_stride } { setup_kfail *-*-* gcc/92775 } gdb_test "p point_mixed_dimension" "= \\\(3, 3, 3, 3\\\)" |