[PATCH 3/4] fortran: Testsuite, fix typos in vla-value.
Tim Wiederhake
tim.wiederhake@intel.com
Mon Aug 21 12:20:00 GMT 2017
From: Bernhard Heckel <bernhard.heckel@intel.com>
xxxx-yy-zz Bernhard Heckel <bernhard.heckel@intel.com>
gdb/testsuite/ChangeLog:
* gdb.fortran/vla-ptype.exp: Fix typos.
* gdb.fortran/vla-value.exp: Same.
---
gdb/testsuite/gdb.fortran/vla-ptype.exp | 6 +++---
gdb/testsuite/gdb.fortran/vla-value.exp | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/gdb/testsuite/gdb.fortran/vla-ptype.exp b/gdb/testsuite/gdb.fortran/vla-ptype.exp
index 2dd51e5..c8e72e9 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 3dd1aae..60022c5 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"]
--
2.7.4
More information about the Gdb-patches
mailing list