diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 609b40a0a4a..4ed43e57973 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2021-05-19  Andrew Burgess  <andrew.burgess@embecosm.com>
+
+	* gdb.guile/scm-pretty-print.exp: Add test names to resolve
+	duplicate test names.
+
 2021-05-19  Tom de Vries  <tdevries@suse.de>
 
 	* gdb.base/info-types.exp.tcl: Scan info types output line-by-line.
diff --git a/gdb/testsuite/gdb.guile/scm-pretty-print.exp b/gdb/testsuite/gdb.guile/scm-pretty-print.exp
index 7bd9d469ff6..00229efd806 100644
--- a/gdb/testsuite/gdb.guile/scm-pretty-print.exp
+++ b/gdb/testsuite/gdb.guile/scm-pretty-print.exp
@@ -90,10 +90,11 @@ proc run_lang_tests {exefile lang} {
 	}
 
 	gdb_test "print x" " = \"this is x\""
-	gdb_test "print cstring" " = \"const string\""
-
+	gdb_test "print cstring" " = \"const string\"" \
+	    "print cstring with max-depth unlimited"
 	gdb_test_no_output "set print max-depth 0"
-	gdb_test "print cstring" " = \"const string\""
+	gdb_test "print cstring" " = \"const string\"" \
+	    "print cstring with max-depth 0"
 	gdb_test_no_output "set print max-depth unlimited"
 
 	gdb_test "print estring" " = \"embedded x\\\\201\\\\202\\\\203\\\\204\""