fortran: Testsuite, fix typos in vla-value.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 6dd9faf5f1d339dcefb711639a72b1d1b18b817b..5835acc994c9c9ba89dcd1a39dff0cca49678b02 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2017-09-08  Bernhard Heckel  <bernhard.heckel@intel.com>
+
+       * gdb.fortran/vla-ptype.exp: Fix typos.
+       * gdb.fortran/vla-value.exp: Same.
+
 2017-09-08  Bernhard Heckel  <bernhard.heckel@intel.com>
 
        * 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 2dd51e5b63f59be9d54f6f752464add7d2caa073..c8e72e92e70e002cd099fa95cda0039ce1ab3f7b 100644 (file)
--- 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 3dd1aae6533ae29bab3af5a76f2f84b03f72cb7c..60022c5f622555ed7d77be4a1ee7793ca6619689 100644 (file)
--- 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"]