fortran: Testsuite, fix typos in vla-value.

This commit is contained in:
Bernhard Heckel 2017-09-08 15:11:47 +02:00 committed by Tim Wiederhake
parent 9e9af4be9f
commit e0f86435f8
3 changed files with 9 additions and 4 deletions

View File

@ -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> 2017-09-08 Bernhard Heckel <bernhard.heckel@intel.com>
* gdb.fortran/vla-value.exp: Use type names defined in libfortran. * gdb.fortran/vla-value.exp: Use type names defined in libfortran.

View File

@ -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" "ptype vla1(3, 6, 9) not initialized"
gdb_test "ptype vla2(5, 45, 20)" \ gdb_test "ptype vla2(5, 45, 20)" \
"no such vector element \\\(vector not allocated\\\)" \ "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_breakpoint [gdb_get_line_number "vla1-allocated"]
gdb_continue_to_breakpoint "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\\\)" \ gdb_test "ptype vla2" "type = $real \\\(7,42:50,13:35\\\)" \
"ptype vla2 filled" "ptype vla2 filled"
gdb_test "ptype vla2(5, 45, 20)" "type = $real" \ 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_breakpoint [gdb_get_line_number "pvla-associated"]
gdb_continue_to_breakpoint "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\\\)" \ gdb_test "ptype pvla" "type = $real \\\(7,42:50,13:35\\\)" \
"ptype pvla re-associated" "ptype pvla re-associated"
gdb_test "ptype vla2(5, 45, 20)" "type = $real" \ 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_breakpoint [gdb_get_line_number "pvla-deassociated"]
gdb_continue_to_breakpoint "pvla-deassociated" gdb_continue_to_breakpoint "pvla-deassociated"

View File

@ -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(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(1, 3, 8)" " = 1311" "print allocated vla1(1,3,8)"
gdb_test "print vla1(9, 9, 9) = 999" " = 999" \ 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 # Try to access values in allocated VLA after specific assignment
gdb_breakpoint [gdb_get_line_number "vla1-filled"] gdb_breakpoint [gdb_get_line_number "vla1-filled"]