@ -133,219 +133,219 @@ gdb_test_no_output "set language ada"
# foo.three_ptr.all
# foo.three_ptr.all
gdb_test "print foo.three_ptr.all" \
gdb_test "print foo.three_ptr.all" \
" = \\(1, 2, 3\\)"
" = \\(1, 2, 3\\)"
gdb_test "print foo.three_ptr.all(1)" \
gdb_test "print foo.three_ptr.all(1)" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr.all(2)" \
gdb_test "print foo.three_ptr.all(2)" \
" = 2"
" = 2"
gdb_test "print foo.three_ptr.all(3)" \
gdb_test "print foo.three_ptr.all(3)" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr.all'first" \
gdb_test "print foo.three_ptr.all'first" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr.all'last" \
gdb_test "print foo.three_ptr.all'last" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr.all'length" \
gdb_test "print foo.three_ptr.all'length" \
" = 3"
" = 3"
gdb_test "ptype foo.three_ptr.all" \
gdb_test "ptype foo.three_ptr.all" \
" = array \\(<>\\) of integer"
" = array \\(<>\\) of integer"
# foo.three_ptr
# foo.three_ptr
gdb_test "print foo.three_ptr(1)" \
gdb_test "print foo.three_ptr(1)" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr(2)" \
gdb_test "print foo.three_ptr(2)" \
" = 2"
" = 2"
gdb_test "print foo.three_ptr(3)" \
gdb_test "print foo.three_ptr(3)" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr'first" \
gdb_test "print foo.three_ptr'first" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr'last" \
gdb_test "print foo.three_ptr'last" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr'length" \
gdb_test "print foo.three_ptr'length" \
" = 3"
" = 3"
gdb_test "ptype foo.three_ptr" \
gdb_test "ptype foo.three_ptr" \
" = access array \\(<>\\) of integer"
" = access array \\(<>\\) of integer"
# foo.three_ptr_tdef.all
# foo.three_ptr_tdef.all
gdb_test "print foo.three_ptr_tdef.all" \
gdb_test "print foo.three_ptr_tdef.all" \
" = \\(1, 2, 3\\)"
" = \\(1, 2, 3\\)"
gdb_test "print foo.three_ptr_tdef.all(1)" \
gdb_test "print foo.three_ptr_tdef.all(1)" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr_tdef.all(2)" \
gdb_test "print foo.three_ptr_tdef.all(2)" \
" = 2"
" = 2"
gdb_test "print foo.three_ptr_tdef.all(3)" \
gdb_test "print foo.three_ptr_tdef.all(3)" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr_tdef.all'first" \
gdb_test "print foo.three_ptr_tdef.all'first" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr_tdef.all'last" \
gdb_test "print foo.three_ptr_tdef.all'last" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr_tdef.all'length" \
gdb_test "print foo.three_ptr_tdef.all'length" \
" = 3"
" = 3"
gdb_test "ptype foo.three_ptr_tdef.all" \
gdb_test "ptype foo.three_ptr_tdef.all" \
" = array \\(<>\\) of integer"
" = array \\(<>\\) of integer"
# foo.three_ptr_tdef
# foo.three_ptr_tdef
gdb_test "print foo.three_ptr_tdef(1)" \
gdb_test "print foo.three_ptr_tdef(1)" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr_tdef(2)" \
gdb_test "print foo.three_ptr_tdef(2)" \
" = 2"
" = 2"
gdb_test "print foo.three_ptr_tdef(3)" \
gdb_test "print foo.three_ptr_tdef(3)" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr_tdef'first" \
gdb_test "print foo.three_ptr_tdef'first" \
" = 1"
" = 1"
gdb_test "print foo.three_ptr_tdef'last" \
gdb_test "print foo.three_ptr_tdef'last" \
" = 3"
" = 3"
gdb_test "print foo.three_ptr_tdef'length" \
gdb_test "print foo.three_ptr_tdef'length" \
" = 3"
" = 3"
gdb_test "ptype foo.three_ptr_tdef" \
gdb_test "ptype foo.three_ptr_tdef" \
" = access array \\(<>\\) of integer"
" = access array \\(<>\\) of integer"
# foo.five_ptr.all
# foo.five_ptr.all
gdb_test "print foo.five_ptr.all" \
gdb_test "print foo.five_ptr.all" \
" = \\(2 => 5, 8, 13, 21, 34\\)"
" = \\(2 => 5, 8, 13, 21, 34\\)"
gdb_test "print foo.five_ptr.all(2)" \
gdb_test "print foo.five_ptr.all(2)" \
" = 5"
" = 5"
gdb_test "print foo.five_ptr.all(3)" \
gdb_test "print foo.five_ptr.all(3)" \
" = 8"
" = 8"
gdb_test "print foo.five_ptr.all(4)" \
gdb_test "print foo.five_ptr.all(4)" \
" = 13"
" = 13"
gdb_test "print foo.five_ptr.all(5)" \
gdb_test "print foo.five_ptr.all(5)" \
" = 21"
" = 21"
gdb_test "print foo.five_ptr.all(6)" \
gdb_test "print foo.five_ptr.all(6)" \
" = 34"
" = 34"
gdb_test "print foo.five_ptr.all'first" \
gdb_test "print foo.five_ptr.all'first" \
" = 2"
" = 2"
gdb_test "print foo.five_ptr.all'last" \
gdb_test "print foo.five_ptr.all'last" \
" = 6"
" = 6"
gdb_test "print foo.five_ptr.all'length" \
gdb_test "print foo.five_ptr.all'length" \
" = 5"
" = 5"
gdb_test "ptype foo.five_ptr.all" \
gdb_test "ptype foo.five_ptr.all" \
" = array \\(<>\\) of integer"
" = array \\(<>\\) of integer"
# foo.five_ptr
# foo.five_ptr
gdb_test "print foo.five_ptr(2)" \
gdb_test "print foo.five_ptr(2)" \
" = 5"
" = 5"
gdb_test "print foo.five_ptr(3)" \
gdb_test "print foo.five_ptr(3)" \
" = 8"
" = 8"
gdb_test "print foo.five_ptr(4)" \
gdb_test "print foo.five_ptr(4)" \
" = 13"
" = 13"
gdb_test "print foo.five_ptr(5)" \
gdb_test "print foo.five_ptr(5)" \
" = 21"
" = 21"
gdb_test "print foo.five_ptr(6)" \
gdb_test "print foo.five_ptr(6)" \
" = 34"
" = 34"
gdb_test "print foo.five_ptr'first" \
gdb_test "print foo.five_ptr'first" \
" = 2"
" = 2"
gdb_test "print foo.five_ptr'last" \
gdb_test "print foo.five_ptr'last" \
" = 6"
" = 6"
gdb_test "print foo.five_ptr'length" \
gdb_test "print foo.five_ptr'length" \
" = 5"
" = 5"
gdb_test "ptype foo.five_ptr" \
gdb_test "ptype foo.five_ptr" \
" = access array \\(<>\\) of integer"
" = access array \\(<>\\) of integer"
# foo.five_ptr_tdef.all
# foo.five_ptr_tdef.all
gdb_test "print foo.five_ptr_tdef.all" \
gdb_test "print foo.five_ptr_tdef.all" \
" = \\(2 => 5, 8, 13, 21, 34\\)"
" = \\(2 => 5, 8, 13, 21, 34\\)"
gdb_test "print foo.five_ptr_tdef.all(2)" \
gdb_test "print foo.five_ptr_tdef.all(2)" \
" = 5"
" = 5"
gdb_test "print foo.five_ptr_tdef.all(3)" \
gdb_test "print foo.five_ptr_tdef.all(3)" \
" = 8"
" = 8"
gdb_test "print foo.five_ptr_tdef.all(4)" \
gdb_test "print foo.five_ptr_tdef.all(4)" \
" = 13"
" = 13"
gdb_test "print foo.five_ptr_tdef.all(5)" \
gdb_test "print foo.five_ptr_tdef.all(5)" \
" = 21"
" = 21"
gdb_test "print foo.five_ptr_tdef.all(6)" \
gdb_test "print foo.five_ptr_tdef.all(6)" \
" = 34"
" = 34"
gdb_test "print foo.five_ptr_tdef.all'first" \
gdb_test "print foo.five_ptr_tdef.all'first" \
" = 2"
" = 2"
gdb_test "print foo.five_ptr_tdef.all'last" \
gdb_test "print foo.five_ptr_tdef.all'last" \
" = 6"
" = 6"
gdb_test "print foo.five_ptr_tdef.all'length" \
gdb_test "print foo.five_ptr_tdef.all'length" \
" = 5"
" = 5"
gdb_test "ptype foo.five_ptr_tdef.all" \
gdb_test "ptype foo.five_ptr_tdef.all" \
" = array \\(<>\\) of integer"
" = array \\(<>\\) of integer"
# foo.five_ptr_tdef
# foo.five_ptr_tdef
gdb_test "print foo.five_ptr_tdef(2)" \
gdb_test "print foo.five_ptr_tdef(2)" \
" = 5"
" = 5"
gdb_test "print foo.five_ptr_tdef(3)" \
gdb_test "print foo.five_ptr_tdef(3)" \
" = 8"
" = 8"
gdb_test "print foo.five_ptr_tdef(4)" \
gdb_test "print foo.five_ptr_tdef(4)" \
" = 13"
" = 13"
gdb_test "print foo.five_ptr_tdef(5)" \
gdb_test "print foo.five_ptr_tdef(5)" \
" = 21"
" = 21"
gdb_test "print foo.five_ptr_tdef(6)" \
gdb_test "print foo.five_ptr_tdef(6)" \
" = 34"
" = 34"
gdb_test "print foo.five_ptr_tdef'first" \
gdb_test "print foo.five_ptr_tdef'first" \
" = 2"
" = 2"
gdb_test "print foo.five_ptr_tdef'last" \
gdb_test "print foo.five_ptr_tdef'last" \
" = 6"
" = 6"
gdb_test "print foo.five_ptr_tdef'length" \
gdb_test "print foo.five_ptr_tdef'length" \
" = 5"
" = 5"
gdb_test "ptype foo.five_ptr_tdef" \
gdb_test "ptype foo.five_ptr_tdef" \
" = access array \\(<>\\) of integer"
" = access array \\(<>\\) of integer"