diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/complex.exp | 22 |
2 files changed, 19 insertions, 7 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 1db518e..ae72ce6 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2020-05-12 Tom de Vries <tdevries@suse.de> + * gdb.fortran/complex.exp: Use with_test_prefix. + +2020-05-12 Tom de Vries <tdevries@suse.de> + * gdb.trace/passcount.exp: Fix test-names. 2020-05-12 Tom de Vries <tdevries@suse.de> diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp index a88e553..f1e754e 100644 --- a/gdb/testsuite/gdb.fortran/complex.exp +++ b/gdb/testsuite/gdb.fortran/complex.exp @@ -38,21 +38,29 @@ gdb_test "print c16" " = \\(-874,19\\)" gdb_test "whatis c" "type = complex\\(kind=4\\)" gdb_test "print \$_creal (c)" " = 1000" -gdb_test "whatis \$" " = real" +with_test_prefix "c" { + gdb_test "whatis \$" " = real" +} gdb_test "whatis c4" "type = complex\\(kind=4\\)" gdb_test "print \$_creal (c4)" " = 1000" -gdb_test "whatis \$" " = real" - +with_test_prefix "c4" { + gdb_test "whatis \$" " = real" +} gdb_test "whatis c8" "type = complex\\(kind=8\\)" gdb_test "print \$_creal (c8)" " = 321" -gdb_test "whatis \$" " = real\\*8" - +with_test_prefix "c8" { + gdb_test "whatis \$" " = real\\*8" +} gdb_test "whatis dc" "type = complex\\(kind=8\\)" gdb_test "print \$_creal (dc)" " = 321" -gdb_test "whatis \$" " = real\\*8" +with_test_prefix "dc" { + gdb_test "whatis \$" " = real\\*8" +} gdb_test "whatis c16" "type = complex\\(kind=16\\)" gdb_test "print \$_creal (c16)" " = -874" -gdb_test "whatis \$" " = real\\*16" +with_test_prefix "c16" { + gdb_test "whatis \$" " = real\\*16" +} |