diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5f1297e27b3..6fa6c67f2d7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-12  Marcus Shawcroft  <marcus.shawcroft@arm.com>
+
+	* lib/profopt.exp (profopt-execute): Use $testcase in
+	unsupported.
+
 2014-03-12  Jakub Jelinek  <jakub@redhat.com>
 
 	* gcc.dg/tree-ssa/ssa-ifcombine-12.c: New test.
diff --git a/gcc/testsuite/lib/profopt.exp b/gcc/testsuite/lib/profopt.exp
index e0d849ef03e..cb6a350dd1b 100644
--- a/gcc/testsuite/lib/profopt.exp
+++ b/gcc/testsuite/lib/profopt.exp
@@ -277,7 +277,7 @@ proc profopt-execute { src } {
 	set dg-do-what [list "run" "" P]
 	set extra_flags [profopt-get-options $src]
 	if { [lindex ${dg-do-what} 1 ] == "N" } {
-	    unsupported "$src"
+	    unsupported "$testcase"
 	    unset testname_with_flags
 	    verbose "$src not supported on this target, skipping it" 3
 	    return