diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index bbe4e5cbfeb..46d27a1b52f 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2021-02-25  Andrew Burgess  <andrew.burgess@embecosm.com>
+
+	* gdb.fortran/associated.exp: Add missing '-wrap' argument.
+
 2021-02-25  Andrew Burgess  <andrew.burgess@embecosm.com>
 
 	PR fortran/26155
diff --git a/gdb/testsuite/gdb.fortran/associated.exp b/gdb/testsuite/gdb.fortran/associated.exp
index d9976f7e8bc..021a6b784f9 100644
--- a/gdb/testsuite/gdb.fortran/associated.exp
+++ b/gdb/testsuite/gdb.fortran/associated.exp
@@ -45,7 +45,7 @@ while { $test_count < 500 } {
 	    -re -wrap "! Test Breakpoint" {
 		# We can run a test from here.
 	    }
-	    -re "! Final Breakpoint" {
+	    -re -wrap "! Final Breakpoint" {
 		# We're done with the tests.
 		set found_final_breakpoint true
 	    }