diff options
Diffstat (limited to 'gcc/testsuite/lib/gcc-dg.exp')
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index 7e833bc..2c2ee00 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -432,6 +432,16 @@ proc dg-require-named-sections { args } { } } +# If the target does not match the required effective target, skip this test. + +proc dg-require-effective-target { args } { + set args [lreplace $args 0 0] + if { ![is-effective-target [lindex $args 0]] } { + upvar dg-do-what dg-do-what + skip_test_and_clear_xfail + } +} + # Prune any messages matching ARGS[1] (a regexp) from test output. proc dg-prune-output { args } { global additional_prunes |