37 lines
1.6 KiB
Diff
37 lines
1.6 KiB
Diff
--- 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\)}
|