From: Bernhard Heckel <bernhard.heckel@intel.com>
Date: Wed, 25 May 2016 06:47:18 +0000 (+0200)
Subject: Fortran, testsuite: Fix duplicate testcase name.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8b70175dfa76c97e28d83cd09f3604933a7c05f5;p=binutils-gdb.git

Fortran, testsuite: Fix duplicate testcase name.

2016-05-25  Bernhard Heckel  <bernhard.heckel@intel.com>

gdb/testsuite/Changelog:
	* gdb.fortran/vla-type.exp: Fix testcase name.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 463f7231699..8be3eae1039 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2016-05-25  Bernhard Heckel  <bernhard.heckel@intel.com>
+
+	* gdb.fortran/vla-type.exp: Fix testcase name.
+
 2016-05-25  Bernhard Heckel  <bernhard.heckel@intel.com>
 
 	* gdb.fortran/vla-type.exp: Access elements in nested structs.
diff --git a/gdb/testsuite/gdb.fortran/vla-type.exp b/gdb/testsuite/gdb.fortran/vla-type.exp
index 6c547e2dec0..68884ce28df 100755
--- a/gdb/testsuite/gdb.fortran/vla-type.exp
+++ b/gdb/testsuite/gdb.fortran/vla-type.exp
@@ -137,7 +137,8 @@ gdb_test "next" ""
 gdb_test "ptype fivedynarr(2)" \
          [multi_line "type = Type five" \
                      "\\s+Type one :: tone" \
-                     "End Type five" ]
+                     "End Type five" ] \
+         "ptype fivedynarr(2), tone is not allocated"
 gdb_test "ptype fivedynarr(2)%tone" \
          [multi_line "type = Type one" \
                      "    $int :: ivla\\(<not allocated>\\)" \