1c5ef882c0
- Fedora patch fixups update:
* fixup-2-gdb-rhbz1156192-recursive-dlopen-test.patch
- Fedora patch fixups added:
* fixup-gdb-test-ivy-bridge.patch
- Add xz to BuildRequires for testsuite flavour.
- Add note on mpfr-devel for SLE-11.
- Backport from master:
* gdb-testsuite-fix-failure-in-gdb-base-step-over-no-symbols-exp.patch
- Patch to be upstreamed:
* gdb-testsuite-fix-control-flow-in-gdb-reverse-insn-reverse-exp.patch
- Patch updated:
* gdb-testsuite-gdb-tui-new-layout-exp-partly-require-tcl86.patch
- Patch updated:
* gdb-testsuite-gdb-tui-new-layout-exp-partly-require-tcl86.patch
- Patch to be upstreamed:
* gdb-testsuite-gdb-base-morestack-exp-no-clang.patch
* gdb-testsuite-handle-sigill-in-gdb-reverse-insn-reverse-exp.patch
* gdb-testsuite-fix-gdb-reverse-insn-reverse-x86-c-for-m32.patch
* gdb-testsuite-gdb-tui-new-layout-exp-partly-require-tcl86.patch
* gdb-tui-enable-work-around-libncurses-segfault.patch
- Backport from master dropped:
* gdb-testsuite-fix-unbalanced-braces-in-gdb-tui-new-layout-exp.patch
- Fedora patch fixups updated:
* fixup-2-gdb-archer-vla-tests.patch
- Fedora patch fixups added:
* fixup-2-gdb-rhbz1156192-recursive-dlopen-test.patch
- Testsuite patch:
* gdb-testsuite-disable-selftests-for-factory.patch
- Backport from master:
* gdb-symtab-read-cu-base-address-for-enqueued-cu.patch
* gdb-symtab-use-early-continue-in-find_pc_sect_compunit.patch
* gdb-fix-section-matching-in-find_pc_sect_compunit.patch
* gdb-symtab-fix-language-of-frame-without-debug-info.patch
- Patch to be upstreamed:
* gdb-symtab-set-default-dwarf-max-cache-age-1000.patch
- BuildRequire curl for debuginfod test-case.
- Patch to be upstreamed:
* gdb-don-t-return-non-existing-path-in-debuginfod-source-query.patch
* gdb-fix-assert-in-process-event-stop-test.patch
* gdb-fix-filename-in-not-in-executable-format-error.patch
* gdb-handle-no-upper-bound-in-value-subscript.patch
* gdb-fortran-handle-dw-at-string-length-with-loclistptr.patch
- Testsuite patch:
* gdb-testsuite-fix-gdb-server-ext-run-exp-for-obs.patch
- Fedora patch fixups added:
* fixup-gdb-rhbz1156192-recursive-dlopen-test.patch
- Fedora patch fixups updated:
* fixup-gdb-btrobust.patch
* fixup-2-gdb-archer-vla-tests.patch
- Add missing patch command for:
* gdb-fortran-fix-print-dynamic-array.patch
- Fix patch application on SLE-11:
* gdb-testsuite-detect-gdb-prompt-after-monitor-exit.patch
- Disable xz-devel and binutils-gold for SLE-10.
- More enabling of gdbserver for riscv64.
- Backport from master:
* gdb-testsuite-fix-unbalanced-braces-in-gdb-tui-new-layout-exp.patch
* gdb-testsuite-catch-condition-evaluation-errors-in-gdb-assert.patch
* gdb-testsuite-detect-gdb-prompt-after-monitor-exit.patch
* gdb-testsuite-fix-gdb-dlang-watch-loc-exp-on-ppc64.patch
- Patch to be upstreamed:
* gdb-fortran-fix-print-dynamic-array.patch
- Enable gdbserver for riscv64.
- Restrict BuildRequires libdebuginfod to Factory and supporting
archs.
- Rebase to 10.1 release (as in fedora 33 @ 6c8ccd6).
* Debuginfod support.
* Multi-target debugging support.
* Multithreaded symbol loading enabled by default.
* New command set exec-file-mismatch.
* New command tui new-layout.
* Alias command can now specify default args for an alias.
- Update libipt to v2.0.2.
- Fedora-specific patches dropped:
* gdb-6.8-bz466901-backtrace-full-prelinked.patch
- Broken/obsolete fedora patches dropped:
* gdb-bz533176-fortran-omp-step.patch
* gdb-6.5-BEA-testsuite.patch
* gdb-6.7-charsign-test.patch
- Obsoleted fedora patches dropped:
* gdb-6.3-attach-see-vdso-test.patch
* gdb-6.3-inferior-notification-20050721.patch
* gdb-6.5-gcore-buffer-limit-test.patch
* gdb-6.5-missed-trap-on-step-test.patch
* gdb-rhbz1818011-bfd-gcc10-error.patch
- Fedora patches updated:
* gdb-6.3-gstack-20050411.patch
* gdb-6.3-test-self-20050110.patch
* gdb-6.5-bz185337-resolve-tls-without-debuginfo-v2.patch
* gdb-6.5-bz218379-solib-trampoline-lookup-lock-fix.patch
* gdb-6.6-buildid-locate-core-as-arg.patch
* gdb-6.6-buildid-locate-rpm-librpm-workaround.patch
* gdb-6.6-buildid-locate-rpm-scl.patch
* gdb-6.6-buildid-locate-rpm.patch
* gdb-6.6-buildid-locate-solib-missing-ids.patch
* gdb-6.6-buildid-locate.patch
* gdb-6.7-testsuite-stable-results.patch
* gdb-6.8-quit-never-aborts.patch
* gdb-archer-pie-addons-keep-disabled.patch
* gdb-archer-pie-addons.patch
* gdb-archer-vla-tests.patch
* gdb-attach-fail-reasons-5of5.patch
* gdb-bz1219747-attach-kills.patch
* gdb-bz533176-fortran-omp-step.patch
* gdb-container-rh-pkg.patch
* gdb-fedora-libncursesw.patch
* gdb-gnat-dwarf-crash-3of3.patch
* gdb-jit-reader-multilib.patch
* gdb-linux_perf-bundle.patch
* gdb-moribund-utrace-workaround.patch
* gdb-runtest-pie-override.patch
* gdb-vla-intel-fix-print-char-array.patch
* gdb-vla-intel-fortran-strides.patch
* gdb-vla-intel-fortran-vla-strings.patch
* gdb-vla-intel-stringbt-fix.patch
* gdb-vla-intel-tests.patch
- Fedora patches added:
* gdb-config.patch
- Obsoleted patched dropped:
* gdb-testsuite-avoid-pagination-in-attach-32.exp.patch
* gdb-fix-toplevel-types-with-fdebug-types-section.patch
* gdb-fix-range-loop-index-in-find_method.patch
* gdb-fix-python3.9-related-runtime-problems.patch
* gdb-fix-unused-function-error.patch
* gdb-fix-the-thread-pool.c-compilation.patch
* gdb-aarch64-fix-erroneous-use-of-spu-architecture-bfd.patch
* gdb-fix-debug-agent-odr-bool-int.patch
* gdbserver-fix-build-with-make-3.81.patch
* gdb-threads-fix-hang-in-stop_all_threads-after-killing-inferior.patch
- Fedora patch fixups added:
* fixup-gdb-6.3-test-pie-20050107.patch
* fixup-gdb-6.5-sharedlibrary-path.patch
* fixup-gdb-6.6-buildid-locate.patch
* fixup-gdb-6.8-bz442765-threaded-exec-test.patch
* fixup-gdb-archer-vla-tests.patch
* fixup-gdb-base-gnu-ifunc-strstr-workaround-exp.patch
* fixup-gdb-btrobust.patch
* fixup-gdb-bz634108-solib_address.patch
* fixup-gdb-dts-rhel6-python-compat.patch
* fixup-gdb-gnat-dwarf-crash-3of3.patch
* fixup-gdb-vla-intel-fortran-vla-strings.patch
* fixup-gdb-vla-intel-tests.patch
* fixup-gdb-6.3-threaded-watchpoints2-20050225.patch
- Patches renamed:
* gdb-testsuite-fix-perror-in-gdb.opt-fortran-string.exp.patch
to fixup-2-gdb-archer-vla-tests.patch
- Patches updated:
* gdb-testsuite-ada-pie.patch
- Backport from master:
* gdb-testsuite-prevent-pagination-in-gdb-internalflags.patch
OBS-URL: https://build.opensuse.org/request/show/851545
OBS-URL: https://build.opensuse.org/package/show/devel:gcc/gdb?expand=0&rev=263
341 lines
16 KiB
Diff
341 lines
16 KiB
Diff
fixup gdb-vla-intel-fortran-vla-strings.patch
|
|
|
|
---
|
|
gdb/f-typeprint.c | 2 +-
|
|
gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp | 4 +--
|
|
gdb/testsuite/gdb.fortran/mixed-lang-stack.exp | 5 +++
|
|
gdb/testsuite/gdb.fortran/pointer-to-pointer.exp | 6 +++-
|
|
gdb/testsuite/gdb.fortran/pointers.exp | 42 ++++++++++++------------
|
|
gdb/testsuite/gdb.fortran/print_type.exp | 18 +++++-----
|
|
gdb/testsuite/gdb.fortran/vla-strings.exp | 12 +++----
|
|
gdb/testsuite/gdb.fortran/vla-value.exp | 8 ++---
|
|
8 files changed, 53 insertions(+), 44 deletions(-)
|
|
|
|
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
|
|
index 9c746fa91c3..c33bd68fe0f 100644
|
|
--- a/gdb/f-typeprint.c
|
|
+++ b/gdb/f-typeprint.c
|
|
@@ -250,7 +250,7 @@ f_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
|
|
case TYPE_CODE_REF:
|
|
f_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1, 0,
|
|
arrayprint_recurse_level, false);
|
|
- fprintf_filtered (stream, ")");
|
|
+ fprintf_filtered (stream, " )");
|
|
break;
|
|
|
|
case TYPE_CODE_FUNC:
|
|
diff --git a/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp b/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp
|
|
index 2f6b17c6dc5..35a4fd78e19 100644
|
|
--- a/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp
|
|
+++ b/gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp
|
|
@@ -179,7 +179,7 @@ gdb_test "print foo.three_ptr'length" \
|
|
" = 3"
|
|
|
|
gdb_test "ptype foo.three_ptr" \
|
|
- " = access array \\(<>\\) of integer"
|
|
+ " = access array \\(1 \.\. 3\\) of integer"
|
|
|
|
# foo.three_ptr_tdef.all
|
|
|
|
@@ -289,7 +289,7 @@ gdb_test "print foo.five_ptr'length" \
|
|
" = 5"
|
|
|
|
gdb_test "ptype foo.five_ptr" \
|
|
- " = access array \\(<>\\) of integer"
|
|
+ " = access array \\(2 \.\. 6\\) of integer"
|
|
|
|
# foo.five_ptr_tdef.all
|
|
|
|
diff --git a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp
|
|
index edf2508537d..617c6a36292 100644
|
|
--- a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp
|
|
+++ b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp
|
|
@@ -54,6 +54,7 @@ proc run_tests { lang } {
|
|
if { $lang == "c" || $lang == "c++" } {
|
|
gdb_test "set language c" \
|
|
"Warning: the current language does not match this frame."
|
|
+ setup_kfail *-*-* bsc#1178580
|
|
} else {
|
|
gdb_test_no_output "set language $lang"
|
|
}
|
|
@@ -156,6 +157,10 @@ proc run_tests { lang } {
|
|
"g = ${g_pattern}" \
|
|
"_e = 6" ]
|
|
|
|
+ if { $lang == "c" || $lang == "c++" } {
|
|
+ setup_kfail *-*-* bsc#1178580
|
|
+ }
|
|
+
|
|
gdb_test "info args" $args_pattern \
|
|
"info args in frame #7"
|
|
}
|
|
diff --git a/gdb/testsuite/gdb.fortran/pointer-to-pointer.exp b/gdb/testsuite/gdb.fortran/pointer-to-pointer.exp
|
|
index 4c643c29903..c93300746de 100644
|
|
--- a/gdb/testsuite/gdb.fortran/pointer-to-pointer.exp
|
|
+++ b/gdb/testsuite/gdb.fortran/pointer-to-pointer.exp
|
|
@@ -43,7 +43,11 @@ set l_buffer_type [multi_line \
|
|
"Type l_buffer" \
|
|
" $real4 :: alpha\\(:\\)" \
|
|
"End Type l_buffer" ]
|
|
+set l_buffer_type_2 [multi_line \
|
|
+ "Type l_buffer" \
|
|
+ " $real4 :: alpha\\(5\\)" \
|
|
+ "End Type l_buffer" ]
|
|
|
|
-gdb_test "ptype buffer" "type = PTR TO -> \\( ${l_buffer_type} \\)"
|
|
+gdb_test "ptype buffer" "type = PTR TO -> \\( ${l_buffer_type_2} \\)"
|
|
gdb_test "ptype *buffer" "type = ${l_buffer_type}"
|
|
gdb_test "ptype buffer%alpha" "type = $real4 \\(5\\)"
|
|
diff --git a/gdb/testsuite/gdb.fortran/pointers.exp b/gdb/testsuite/gdb.fortran/pointers.exp
|
|
index 916897005f2..ddcc1036765 100644
|
|
--- a/gdb/testsuite/gdb.fortran/pointers.exp
|
|
+++ b/gdb/testsuite/gdb.fortran/pointers.exp
|
|
@@ -35,28 +35,28 @@ set complex [fortran_complex4]
|
|
|
|
gdb_breakpoint [gdb_get_line_number "Before pointer assignment"]
|
|
gdb_continue_to_breakpoint "Before pointer assignment"
|
|
-gdb_test "print logp" "= \\(PTR TO -> \\( $logical\\)\\) 0x0" "print logp, not associated"
|
|
+gdb_test "print logp" "= \\(PTR TO -> \\( $logical \\)\\) 0x0" "print logp, not associated"
|
|
gdb_test "print *logp" "Cannot access memory at address 0x0" "print *logp, not associated"
|
|
-gdb_test "print comp" "= \\(PTR TO -> \\( $complex\\)\\) 0x0" "print comp, not associated"
|
|
+gdb_test "print comp" "= \\(PTR TO -> \\( $complex \\)\\) 0x0" "print comp, not associated"
|
|
gdb_test "print *comp" "Cannot access memory at address 0x0" "print *comp, not associated"
|
|
-gdb_test "print charp" "= \\(PTR TO -> \\( character\\*1\\)\\) 0x0" "print charp, not associated"
|
|
+gdb_test "print charp" "= \\(PTR TO -> \\( character\\*1 \\)\\) 0x0" "print charp, not associated"
|
|
gdb_test "print *charp" "Cannot access memory at address 0x0" "print *charp, not associated"
|
|
-gdb_test "print charap" "= \\(PTR TO -> \\( character\\*3\\)\\) 0x0" "print charap, not associated"
|
|
+gdb_test "print charap" "= \\(PTR TO -> \\( character\\*3 \\)\\) 0x0" "print charap, not associated"
|
|
gdb_test "print *charap" "Cannot access memory at address 0x0" "print *charap, not associated"
|
|
-gdb_test "print intp" "= \\(PTR TO -> \\( $int\\)\\) 0x0" "print intp, not associated"
|
|
+gdb_test "print intp" "= \\(PTR TO -> \\( $int \\)\\) 0x0" "print intp, not associated"
|
|
gdb_test "print *intp" "Cannot access memory at address 0x0" "print *intp, not associated"
|
|
set test "print intap, not associated"
|
|
gdb_test_multiple "print intap" $test {
|
|
- -re " = \\(PTR TO -> \\( $int \\(:,:\\)\\)\\) <not associated>\r\n$gdb_prompt $" {
|
|
+ -re " = \\(PTR TO -> \\( $int \\(:,:\\) \\)\\) <not associated>\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
-re " = <not associated>\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
}
|
|
-gdb_test "print realp" "= \\(PTR TO -> \\( $real\\)\\) 0x0" "print realp, not associated"
|
|
+gdb_test "print realp" "= \\(PTR TO -> \\( $real \\)\\) 0x0" "print realp, not associated"
|
|
gdb_test "print *realp" "Cannot access memory at address 0x0" "print *realp, not associated"
|
|
-gdb_test "print \$my_var = intp" "= \\(PTR TO -> \\( $int\\)\\) 0x0"
|
|
+gdb_test "print \$my_var = intp" "= \\(PTR TO -> \\( $int \\)\\) 0x0"
|
|
set test "print cyclicp1, not associated"
|
|
gdb_test_multiple "print cyclicp1" $test {
|
|
-re "= \\( i = -?\\d+, p = 0x0 \\)\r\n$gdb_prompt $" {
|
|
@@ -68,10 +68,10 @@ gdb_test_multiple "print cyclicp1" $test {
|
|
}
|
|
set test "print cyclicp1%p, not associated"
|
|
gdb_test_multiple "print cyclicp1%p" $test {
|
|
- -re "= \\(PTR TO -> \\( Type typewithpointer\\)\\) 0x0\r\n$gdb_prompt $" {
|
|
+ -re "= \\(PTR TO -> \\( Type typewithpointer \\)\\) 0x0\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
- -re "= \\(PTR TO -> \\( Type typewithpointer\\)\\) <not associated>\r\n$gdb_prompt $" {
|
|
+ -re "= \\(PTR TO -> \\( Type typewithpointer \\)\\) <not associated>\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
}
|
|
@@ -84,15 +84,15 @@ gdb_test "print *(twop)%ivla2" "= <not allocated>"
|
|
|
|
gdb_breakpoint [gdb_get_line_number "After value assignment"]
|
|
gdb_continue_to_breakpoint "After value assignment"
|
|
-gdb_test "print logp" "= \\(PTR TO -> \\( $logical\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print logp" "= \\(PTR TO -> \\( $logical \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *logp" "= \\.TRUE\\."
|
|
-gdb_test "print comp" "= \\(PTR TO -> \\( $complex\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print comp" "= \\(PTR TO -> \\( $complex \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *comp" "= \\(1,2\\)"
|
|
-gdb_test "print charp" "= \\(PTR TO -> \\( character\\*1\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print charp" "= \\(PTR TO -> \\( character\\*1 \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *charp" "= 'a'"
|
|
-gdb_test "print charap" "= \\(PTR TO -> \\( character\\*3\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print charap" "= \\(PTR TO -> \\( character\\*3 \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *charap" "= 'abc'"
|
|
-gdb_test "print intp" "= \\(PTR TO -> \\( $int\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print intp" "= \\(PTR TO -> \\( $int \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *intp" "= 10"
|
|
set test_name "print intap, associated"
|
|
gdb_test_multiple "print intap" $test_name {
|
|
@@ -114,16 +114,16 @@ gdb_test_multiple "print intvlap" $test_name {
|
|
pass $test_name
|
|
}
|
|
}
|
|
-gdb_test "print realp" "= \\(PTR TO -> \\( $real\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print realp" "= \\(PTR TO -> \\( $real \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *realp" "= 3\\.14000\\d+"
|
|
-gdb_test "print arrayOfPtr(2)%p" "= \\(PTR TO -> \\( Type two\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print arrayOfPtr(2)%p" "= \\(PTR TO -> \\( Type two \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *(arrayOfPtr(2)%p)" "= \\( ivla1 = \\(11, 12, 13\\), ivla2 = \\(\\( 211, 221\\) \\( 212, 222\\) \\) \\)"
|
|
set test_name "print arrayOfPtr(3)%p"
|
|
gdb_test_multiple $test_name $test_name {
|
|
- -re "= \\(PTR TO -> \\( Type two\\)\\) <not associated>\r\n$gdb_prompt $" {
|
|
+ -re "= \\(PTR TO -> \\( Type two \\)\\) <not associated>\r\n$gdb_prompt $" {
|
|
pass $test_name
|
|
}
|
|
- -re "= \\(PTR TO -> \\( Type two\\)\\) 0x0\r\n$gdb_prompt $" {
|
|
+ -re "= \\(PTR TO -> \\( Type two \\)\\) 0x0\r\n$gdb_prompt $" {
|
|
pass $test_name
|
|
}
|
|
}
|
|
@@ -137,7 +137,7 @@ gdb_test_multiple "print *(arrayOfPtr(3)%p)" $test_name {
|
|
}
|
|
}
|
|
gdb_test "print cyclicp1" "= \\( i = 1, p = $hex\( <.*>\)? \\)"
|
|
-gdb_test "print cyclicp1%p" "= \\(PTR TO -> \\( Type typewithpointer\\)\\) $hex\( <.*>\)?"
|
|
+gdb_test "print cyclicp1%p" "= \\(PTR TO -> \\( Type typewithpointer \\)\\) $hex\( <.*>\)?"
|
|
gdb_test "print *((integer*) &inta + 2)" "= 3" "print temporary pointer, array"
|
|
gdb_test "print *((integer*) &intvla + 3)" "= 4" "print temporary pointer, allocated vla"
|
|
-gdb_test "print \$pc" "= \\(PTR TO -> \\( void \\(\\) \\(\\)\\)\\) $hex <pointers\\+\\d+>" "Print program counter"
|
|
+gdb_test "print \$pc" "= \\(PTR TO -> \\( void \\(\\) \\(\\) \\)\\) $hex <pointers\\+\\d+>" "Print program counter"
|
|
diff --git a/gdb/testsuite/gdb.fortran/print_type.exp b/gdb/testsuite/gdb.fortran/print_type.exp
|
|
index 5a4aa35d7cb..529a78e5b89 100755
|
|
--- a/gdb/testsuite/gdb.fortran/print_type.exp
|
|
+++ b/gdb/testsuite/gdb.fortran/print_type.exp
|
|
@@ -43,7 +43,7 @@ set complex [fortran_complex4]
|
|
# matches the string TYPE.
|
|
proc check_pointer_type { var_name type } {
|
|
gdb_test "ptype ${var_name}" \
|
|
- "type = PTR TO -> \\( ${type}\\)"
|
|
+ "type = PTR TO -> \\( ${type} \\)"
|
|
}
|
|
|
|
gdb_breakpoint [gdb_get_line_number "Before pointer assignment"]
|
|
@@ -88,7 +88,7 @@ gdb_test "ptype twop" \
|
|
[multi_line "type = PTR TO -> \\( Type two" \
|
|
" $int, allocatable :: ivla1\\(:\\)" \
|
|
" $int, allocatable :: ivla2\\(:,:\\)" \
|
|
- "End Type two\\)"]
|
|
+ "End Type two \\)"]
|
|
|
|
|
|
gdb_breakpoint [gdb_get_line_number "After value assignment"]
|
|
@@ -101,18 +101,18 @@ gdb_test "ptype intv" "type = $int"
|
|
gdb_test "ptype inta" "type = $int \\(10,2\\)"
|
|
gdb_test "ptype realv" "type = $real"
|
|
|
|
-gdb_test "ptype logp" "type = PTR TO -> \\( $logical\\)"
|
|
-gdb_test "ptype comp" "type = PTR TO -> \\( $complex\\)"
|
|
-gdb_test "ptype charp" "type = PTR TO -> \\( character\\*1\\)"
|
|
-gdb_test "ptype charap" "type = PTR TO -> \\( character\\*3\\)"
|
|
-gdb_test "ptype intp" "type = PTR TO -> \\( $int\\)"
|
|
+gdb_test "ptype logp" "type = PTR TO -> \\( $logical \\)"
|
|
+gdb_test "ptype comp" "type = PTR TO -> \\( $complex \\)"
|
|
+gdb_test "ptype charp" "type = PTR TO -> \\( character\\*1 \\)"
|
|
+gdb_test "ptype charap" "type = PTR TO -> \\( character\\*3 \\)"
|
|
+gdb_test "ptype intp" "type = PTR TO -> \\( $int \\)"
|
|
set test "ptype intap"
|
|
gdb_test_multiple $test $test {
|
|
-re "type = $int \\(10,2\\)\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
- -re "type = PTR TO -> \\( $int \\(10,2\\)\\)\r\n$gdb_prompt $" {
|
|
+ -re "type = PTR TO -> \\( $int \\(10,2\\) \\)\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
}
|
|
-gdb_test "ptype realp" "type = PTR TO -> \\( $real\\)"
|
|
+gdb_test "ptype realp" "type = PTR TO -> \\( $real \\)"
|
|
diff --git a/gdb/testsuite/gdb.fortran/vla-strings.exp b/gdb/testsuite/gdb.fortran/vla-strings.exp
|
|
index 5d0662823a0..484fdcb652a 100644
|
|
--- a/gdb/testsuite/gdb.fortran/vla-strings.exp
|
|
+++ b/gdb/testsuite/gdb.fortran/vla-strings.exp
|
|
@@ -32,7 +32,7 @@ gdb_breakpoint [gdb_get_line_number "var_char-allocated-1"]
|
|
gdb_continue_to_breakpoint "var_char-allocated-1"
|
|
set test "whatis var_char first time"
|
|
gdb_test_multiple "whatis var_char" $test {
|
|
- -re "type = PTR TO -> \\( character\\*10\\)\r\n$gdb_prompt $" {
|
|
+ -re "type = PTR TO -> \\( character\\*10 \\)\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
-re "type = character\\*10\r\n$gdb_prompt $" {
|
|
@@ -41,7 +41,7 @@ gdb_test_multiple "whatis var_char" $test {
|
|
}
|
|
set test "ptype var_char first time"
|
|
gdb_test_multiple "ptype var_char" $test {
|
|
- -re "type = PTR TO -> \\( character\\*10\\)\r\n$gdb_prompt $" {
|
|
+ -re "type = PTR TO -> \\( character\\*10 \\)\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
-re "type = character\\*10\r\n$gdb_prompt $" {
|
|
@@ -59,7 +59,7 @@ gdb_breakpoint [gdb_get_line_number "var_char-filled-1"]
|
|
gdb_continue_to_breakpoint "var_char-filled-1"
|
|
set test "print var_char, var_char-filled-1"
|
|
gdb_test_multiple "print var_char" $test {
|
|
- -re "= \\(PTR TO -> \\( character\\*3\\)\\) $hex\r\n$gdb_prompt $" {
|
|
+ -re "= \\(PTR TO -> \\( character\\*3 \\)\\) $hex\r\n$gdb_prompt $" {
|
|
gdb_test "print *var_char" "= 'foo'" "print *var_char, var_char-filled-1"
|
|
pass $test
|
|
}
|
|
@@ -69,7 +69,7 @@ gdb_test_multiple "print var_char" $test {
|
|
}
|
|
set test "ptype var_char, var_char-filled-1"
|
|
gdb_test_multiple "ptype var_char" $test {
|
|
- -re "type = PTR TO -> \\( character\\*3\\)\r\n$gdb_prompt $" {
|
|
+ -re "type = PTR TO -> \\( character\\*3 \\)\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
-re "type = character\\*3\r\n$gdb_prompt $" {
|
|
@@ -84,7 +84,7 @@ gdb_breakpoint [gdb_get_line_number "var_char-filled-2"]
|
|
gdb_continue_to_breakpoint "var_char-filled-2"
|
|
set test "print var_char, var_char-filled-2"
|
|
gdb_test_multiple "print var_char" $test {
|
|
- -re "= \\(PTR TO -> \\( character\\*6\\)\\) $hex\r\n$gdb_prompt $" {
|
|
+ -re "= \\(PTR TO -> \\( character\\*6 \\)\\) $hex\r\n$gdb_prompt $" {
|
|
gdb_test "print *var_char" "= 'foobar'" "print *var_char, var_char-filled-2"
|
|
pass $test
|
|
}
|
|
@@ -94,7 +94,7 @@ gdb_test_multiple "print var_char" $test {
|
|
}
|
|
set test "ptype var_char, var_char-filled-2"
|
|
gdb_test_multiple "ptype var_char" $test {
|
|
- -re "type = PTR TO -> \\( character\\*6\\)\r\n$gdb_prompt $" {
|
|
+ -re "type = PTR TO -> \\( character\\*6 \\)\r\n$gdb_prompt $" {
|
|
pass $test
|
|
}
|
|
-re "type = character\\*6\r\n$gdb_prompt $" {
|
|
diff --git a/gdb/testsuite/gdb.fortran/vla-value.exp b/gdb/testsuite/gdb.fortran/vla-value.exp
|
|
index 49f22e7904e..be0a2d47fdf 100644
|
|
--- a/gdb/testsuite/gdb.fortran/vla-value.exp
|
|
+++ b/gdb/testsuite/gdb.fortran/vla-value.exp
|
|
@@ -37,7 +37,7 @@ gdb_breakpoint [gdb_get_line_number "vla1-init"]
|
|
gdb_continue_to_breakpoint "vla1-init"
|
|
gdb_test "print vla1" " = <not allocated>" "print non-allocated vla1"
|
|
gdb_test "print &vla1" \
|
|
- " = \\\(PTR TO -> \\\( $real, allocatable \\\(:,:,:\\\)\\\)\\\) $hex" \
|
|
+ " = \\\(PTR TO -> \\\( $real, allocatable \\\(:,:,:\\\) \\\)\\\) $hex" \
|
|
"print non-allocated &vla1"
|
|
gdb_test "print vla1(1,1,1)" "no such vector element \\\(vector not allocated\\\)" \
|
|
"print member in non-allocated vla1 (1)"
|
|
@@ -58,7 +58,7 @@ with_timeout_factor 15 {
|
|
"step over value assignment of vla1"
|
|
}
|
|
gdb_test "print &vla1" \
|
|
- " = \\\(PTR TO -> \\\( $real, allocatable \\\(10,10,10\\\)\\\)\\\) $hex" \
|
|
+ " = \\\(PTR TO -> \\\( $real, allocatable \\\(10,10,10\\\) \\\)\\\) $hex" \
|
|
"print allocated &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)"
|
|
@@ -78,7 +78,7 @@ gdb_test "print vla1(9, 9, 9)" " = 999" \
|
|
# Try to access values in undefined pointer to VLA (dangling)
|
|
gdb_test "print pvla" " = <not associated>" "print undefined pvla"
|
|
gdb_test "print &pvla" \
|
|
- " = \\\(PTR TO -> \\\( $real \\\(:,:,:\\\)\\\)\\\) $hex" \
|
|
+ " = \\\(PTR TO -> \\\( $real \\\(:,:,:\\\) \\\)\\\) $hex" \
|
|
"print non-associated &pvla"
|
|
gdb_test "print pvla(1, 3, 8)" "no such vector element \\\(vector not associated\\\)" \
|
|
"print undefined pvla(1,3,8)"
|
|
@@ -87,7 +87,7 @@ gdb_test "print pvla(1, 3, 8)" "no such vector element \\\(vector not associated
|
|
gdb_breakpoint [gdb_get_line_number "pvla-associated"]
|
|
gdb_continue_to_breakpoint "pvla-associated"
|
|
gdb_test "print &pvla" \
|
|
- " = \\\(PTR TO -> \\\( $real \\\(10,10,10\\\)\\\)\\\) $hex" \
|
|
+ " = \\\(PTR TO -> \\\( $real \\\(10,10,10\\\) \\\)\\\) $hex" \
|
|
"print associated &pvla"
|
|
gdb_test "print pvla(3, 6, 9)" " = 42" "print associated pvla(3,6,9)"
|
|
gdb_test "print pvla(1, 3, 8)" " = 1001" "print associated pvla(1,3,8)"
|