From 2d82ec25dc0f1fd9e1d5b013db48802a150dec7c Mon Sep 17 00:00:00 2001
From: Nathan Sidwell <nathan@acm.org>
Date: Fri, 12 May 2017 00:28:44 +0000
Subject: [PATCH] * lib/gcc-dg.exp (schedule-cleanups): Add lang dump
 capability.

From-SVN: r247946
---
 gcc/testsuite/ChangeLog      | 4 +++-
 gcc/testsuite/lib/gcc-dg.exp | 4 ++--
 2 files changed, 5 insertions(+), 3 deletions(-)

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
     }
-- 
2.30.2