diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b2f07c99f1d..57a6c4ba34a 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,6 +1,6 @@
 2016-08-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
-	PR fortran/71961
+	PR fortran/70040
 	* gfortran.dg/pr70040.f90:  New testcase.
 
 2016-08-07  Thomas Koenig  <tkoenig@gcc.gnu.org>