From FEDORA_PATCHES Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Fri, 1 Aug 2014 23:02:17 +0200
-Subject: Crash regression(?) printing Fortran strings in bt [Re: [V2 00/23]
- Fortran dynamic array support]
-
-FileName: gdb-vla-intel-stringbt-fix.patch
+Subject: gdb-vla-intel-stringbt-fix.patch
;;=push+jan
Thanks,
Jan
----
- gdb/dwarf2loc.c | 15 +++++++++
- .../gdb.fortran/dynamic-other-frame-stub.f90 | 24 +++++++++++++
- gdb/testsuite/gdb.fortran/dynamic-other-frame.exp | 39 ++++++++++++++++++++++
- gdb/testsuite/gdb.fortran/dynamic-other-frame.f90 | 36 ++++++++++++++++++++
- 4 files changed, 114 insertions(+)
- create mode 100644 gdb/testsuite/gdb.fortran/dynamic-other-frame-stub.f90
- create mode 100644 gdb/testsuite/gdb.fortran/dynamic-other-frame.exp
- create mode 100644 gdb/testsuite/gdb.fortran/dynamic-other-frame.f90
diff --git a/gdb/dwarf2loc.c b/gdb/dwarf2loc.c
-index 5105c8d23a..5486e4dc12 100644
--- a/gdb/dwarf2loc.c
+++ b/gdb/dwarf2loc.c
@@ -42,6 +42,7 @@
ctx.gdbarch = get_objfile_arch (objfile);
diff --git a/gdb/testsuite/gdb.fortran/dynamic-other-frame-stub.f90 b/gdb/testsuite/gdb.fortran/dynamic-other-frame-stub.f90
new file mode 100644
-index 0000000000..261ce17ae5
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/dynamic-other-frame-stub.f90
@@ -0,0 +1,24 @@
+end subroutine bar
diff --git a/gdb/testsuite/gdb.fortran/dynamic-other-frame.exp b/gdb/testsuite/gdb.fortran/dynamic-other-frame.exp
new file mode 100644
-index 0000000000..570a28ca65
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/dynamic-other-frame.exp
@@ -0,0 +1,39 @@
+gdb_test "bt" {foo \(string='hello'.*}
diff --git a/gdb/testsuite/gdb.fortran/dynamic-other-frame.f90 b/gdb/testsuite/gdb.fortran/dynamic-other-frame.f90
new file mode 100644
-index 0000000000..2bc637db49
--- /dev/null
+++ b/gdb/testsuite/gdb.fortran/dynamic-other-frame.f90
@@ -0,0 +1,36 @@
+ end interface
+ call foo ('hello')
+end
---
-2.14.3
-