diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a8ab978f038..3553c993dde 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,4 +1,6 @@
-gcc/testsuite/ChangeLog:
+2017-05-11  Nathan Sidwell  <nathan@acm.org>
+
+	* lib/gcc-dg.exp (schedule-cleanups): Add lang dump capability.
 
 2017-05-11  Carl Love  <cel@us.ibm.com>
 
diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 82cc2214e39..b6865b441dc 100644
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -158,8 +158,8 @@ proc schedule-cleanups { opts } {
     }
     # Finally see if there are any dumps in opts, otherwise we are done
     if [regexp -- {(?=(?:^|[ \t]+)?)-fdump-[^ \t]+(?=(?:$|[ \t]+)?)} $opts] {
-        # Ipa, Rtl, Tree for simplicity
-        set ptn "{i,r,t}"
+        # Lang, Ipa, Rtl, Tree for simplicity
+        set ptn "{l,i,r,t}"
     } else {
         return $finalcode
     }