From e0f86435f8b3c61e21070a232a07c03928c2d544 Mon Sep 17 00:00:00 2001 From: Bernhard Heckel Date: Fri, 8 Sep 2017 15:11:47 +0200 Subject: [PATCH] fortran: Testsuite, fix typos in vla-value. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.fortran/vla-ptype.exp | 6 +++--- gdb/testsuite/gdb.fortran/vla-value.exp | 2 +- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 6dd9faf5f1..5835acc994 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-09-08 Bernhard Heckel + + * gdb.fortran/vla-ptype.exp: Fix typos. + * gdb.fortran/vla-value.exp: Same. + 2017-09-08 Bernhard Heckel * gdb.fortran/vla-value.exp: Use type names defined in libfortran. diff --git a/gdb/testsuite/gdb.fortran/vla-ptype.exp b/gdb/testsuite/gdb.fortran/vla-ptype.exp index 2dd51e5b63..c8e72e92e7 100644 --- a/gdb/testsuite/gdb.fortran/vla-ptype.exp +++ b/gdb/testsuite/gdb.fortran/vla-ptype.exp @@ -39,7 +39,7 @@ gdb_test "ptype vla1(3, 6, 9)" "no such vector element \\\(vector not allocated\ "ptype vla1(3, 6, 9) not initialized" gdb_test "ptype vla2(5, 45, 20)" \ "no such vector element \\\(vector not allocated\\\)" \ - "ptype vla1(5, 45, 20) not initialized" + "ptype vla2(5, 45, 20) not initialized" gdb_breakpoint [gdb_get_line_number "vla1-allocated"] gdb_continue_to_breakpoint "vla1-allocated" @@ -63,7 +63,7 @@ gdb_continue_to_breakpoint "vla2-filled" gdb_test "ptype vla2" "type = $real \\\(7,42:50,13:35\\\)" \ "ptype vla2 filled" gdb_test "ptype vla2(5, 45, 20)" "type = $real" \ - "ptype vla1(5, 45, 20) filled" + "ptype vla2(5, 45, 20) filled" gdb_breakpoint [gdb_get_line_number "pvla-associated"] gdb_continue_to_breakpoint "pvla-associated" @@ -77,7 +77,7 @@ gdb_continue_to_breakpoint "pvla-re-associated" gdb_test "ptype pvla" "type = $real \\\(7,42:50,13:35\\\)" \ "ptype pvla re-associated" gdb_test "ptype vla2(5, 45, 20)" "type = $real" \ - "ptype vla1(5, 45, 20) re-associated" + "ptype vla2(5, 45, 20) re-associated" gdb_breakpoint [gdb_get_line_number "pvla-deassociated"] gdb_continue_to_breakpoint "pvla-deassociated" diff --git a/gdb/testsuite/gdb.fortran/vla-value.exp b/gdb/testsuite/gdb.fortran/vla-value.exp index 3dd1aae653..60022c5f62 100644 --- a/gdb/testsuite/gdb.fortran/vla-value.exp +++ b/gdb/testsuite/gdb.fortran/vla-value.exp @@ -61,7 +61,7 @@ gdb_test "print &vla1" \ gdb_test "print vla1(3, 6, 9)" " = 1311" "print allocated vla1(3,6,9)" gdb_test "print vla1(1, 3, 8)" " = 1311" "print allocated vla1(1,3,8)" gdb_test "print vla1(9, 9, 9) = 999" " = 999" \ - "print allocated vla1(9,9,9)=1" + "print allocated vla1(9,9,9)=999" # Try to access values in allocated VLA after specific assignment gdb_breakpoint [gdb_get_line_number "vla1-filled"]