diff options
| author | Bernhard Heckel <bernhard.heckel@intel.com> | 2017-09-08 15:11:47 +0200 |
|---|---|---|
| committer | Tim Wiederhake <tim.wiederhake@intel.com> | 2017-09-08 15:11:47 +0200 |
| commit | e0f86435f8b3c61e21070a232a07c03928c2d544 (patch) | |
| tree | bd06c34127344a8f071b87e22af23ae5612117db | |
| parent | 9e9af4be9f656f82922e6aaeb3b6421508403ea4 (diff) | |
| download | gdb-e0f86435f8b3c61e21070a232a07c03928c2d544.zip gdb-e0f86435f8b3c61e21070a232a07c03928c2d544.tar.gz gdb-e0f86435f8b3c61e21070a232a07c03928c2d544.tar.bz2 | |
fortran: Testsuite, fix typos in vla-value.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/vla-ptype.exp | 6 | ||||
| -rw-r--r-- | 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 6dd9faf..5835acc 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 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. * gdb.mi/mi-var-child-f.exp: Likewise. * gdb.mi/mi-vla-fortran.exp: Likewise. 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"] |