[gcc r13-4719] testsuite: Add support for Rust and Modula-2 effective target tests

[gcc r13-4719] testsuite: Add support for Rust and Modula-2 effective target tests

[Jakub Jelinek]

https://gcc.gnu.org/g:9cf9f3c7629d768d940d9f87cddcd616bb0449e0

commit r13-4719-g9cf9f3c7629d768d940d9f87cddcd616bb0449e0
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Thu Dec 15 13:57:43 2022 +0100

    testsuite: Add support for Rust and Modula-2 effective target tests
    
    This patch allows magic comments also for Rust and Modula-2
    for effective target tests etc. and fixes up the Assembly entry
    - it is a glob, so /* Assembly can match /whatever Assembly and
    not just /* Assembly.
    
    Tested on x86_64-linux with
    make check-g++ RUNTESTFLAGS=i386.exp=pr35513*
    and verifying it still uses *.S extension for the property_1_needed
    effective target test.
    
    2022-12-15  Jakub Jelinek  <jakub@redhat.com>
    
            * lib/target-supports.exp (check_compile): Add support for
            Rust and Modula-2.  Use \* rather than * for /* comment for
            Assembly.

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

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 2a058c67c53..e9867a4529c 100644
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -36,7 +36,9 @@
 # "! Fortran" for Fortran code,
 # "/* ObjC", for ObjC
 # "// ObjC++" for ObjC++
-# and "// Go" for Go
+# "// Go" for Go
+# "// Rust" for Rust
+# and "(* Modula-2" for Modula-2
 # If the tool is ObjC/ObjC++ then we overide the extension to .m/.mm to 
 # allow for ObjC/ObjC++ specific flags.
 
@@ -58,13 +60,15 @@ proc check_compile {basename type contents args} {
 	set options ""
     }
     switch -glob -- $contents {
-	"*/* Assembly*" { set src ${basename}[pid].S }
+	"*/\* Assembly*" { set src ${basename}[pid].S }
 	"*! Fortran*" { set src ${basename}[pid].f90 }
 	"*// C++*" { set src ${basename}[pid].cc }
 	"*// D*" { set src ${basename}[pid].d }
 	"*// ObjC++*" { set src ${basename}[pid].mm }
 	"*/* ObjC*" { set src ${basename}[pid].m }
 	"*// Go*" { set src ${basename}[pid].go }
+	"*// Rust*" { set src ${basename}[pid].rs }
+	"*(\* Modula-2*" { set src ${basename}[pid].mod }
 	default {
 	    switch -- $tool {
 		"objc" { set src ${basename}[pid].m }