--- gdb-7.10.50.20160106/gdb/testsuite/gdb.fortran/subrange.exp-orig 2016-01-08 22:45:44.956842553 +0100 +++ gdb-7.10.50.20160106/gdb/testsuite/gdb.fortran/subrange.exp 2016-01-08 23:26:05.078554629 +0100 @@ -39,27 +39,16 @@ foreach var {a alloc ptr} { set old_prefix $pf_prefix lappend pf_prefix "$var:" - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (2, 2:3)" { = \(22, 32\)} - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (2:3, 3)" { = \(32, 33\)} - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (1, 2:)" { = \(21, 31\)} - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (2, :2)" { = \(12, 22\)} - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (3, 2:2)" { = \(23\)} - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "ptype $var (3, 2:2)" " = $int4 \\(2:2\\)" - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (4, :)" { = \(14, 24, 34\)} - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (:, :)" { = \(\( *11, 12, 13, 14\) \( *21, 22, 23, 24\) \( *31, 32, 33, 34\) *\)} - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "ptype $var (:, :)" " = $int4 \\(4,3\\)" - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (:)" "Wrong number of subscripts" - setup_kfail "*-*-*" "vlaregression/9999" gdb_test "p $var (:, :, :)" "Wrong number of subscripts" set pf_prefix $old_prefix @@ -68,5 +57,4 @@ foreach var {a alloc ptr} { gdb_test_no_output {set $a=a} delete_breakpoints gdb_unload -setup_kfail "*-*-*" "vlaregression/9999" gdb_test {p $a (3, 2:2)} { = \(23\)}