[gcc r13-6515] testsuite: Support scanning tree-dumps

[Hans-Peter Nilsson]

https://gcc.gnu.org/g:1690f928b379e8dac07832d25865ffe37d3c858b

commit r13-6515-g1690f928b379e8dac07832d25865ffe37d3c858b
Author: Hans-Peter Nilsson <hp@axis.com>
Date:   Fri Mar 3 21:18:05 2023 +0100

    testsuite: Support scanning tree-dumps
    
    No planned usage.
    
            * lib/target-supports.exp (check_compile): Support scanning tree-dumps.

Diff:
---
 gcc/testsuite/lib/target-supports.exp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 4bad4dae582..a4fbc1998c7 100644
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -87,6 +87,7 @@ proc check_compile {basename type contents args} {
 	assembly { set output ${basename}[pid].s }
 	object { set output ${basename}[pid].o }
 	executable { set output ${basename}[pid].exe }
+	"tree-*" -
 	"rtl-*" {
 	    set output ${basename}[pid].s
 	    lappend options "additional_flags=-fdump-$type"
@@ -108,6 +109,9 @@ proc check_compile {basename type contents args} {
     if [regexp "rtl-(.*)" $type dummy rtl_type] {
 	set scan_output "[glob $src.\[0-9\]\[0-9\]\[0-9\]r.$rtl_type]"
 	file delete $output
+    } elseif [regexp "tree-(.*)" $type dummy tree_type] {
+	set scan_output "[glob $src.\[0-9\]\[0-9\]\[0-9\]t.$tree_type]"
+	file delete $output
     }
 
     # Restore additional_sources.