[PATCH v2 1/3] Introduce dg-require-target-object-format

[Egeyar Bagcioglu]

gcc/testsuite/:
2020-02-27  Egeyar Bagcioglu  <egeyar.bagcioglu@oracle.com>

	* lib/target-supports-dg.exp (dg-require-target-object-format):	New.
---
 gcc/testsuite/lib/target-supports-dg.exp | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gcc/testsuite/lib/target-supports-dg.exp b/gcc/testsuite/lib/target-supports-dg.exp
index 2a21424..9678a66 100644
--- a/gcc/testsuite/lib/target-supports-dg.exp
+++ b/gcc/testsuite/lib/target-supports-dg.exp
@@ -164,6 +164,17 @@ proc dg-require-dll { args } {
     set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
 }
 
+# If this target does not produce the given object format skip this test.
+
+proc dg-require-target-object-format { args } {
+    if [string equal [gcc_target_object_format] [lindex $args 1] ] {
+	return
+    }
+
+    upvar dg-do-what dg-do-what
+    set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
+}
+
 # If this host does not support an ASCII locale, skip this test.
 
 proc dg-require-ascii-locale { args } {
-- 
1.8.3.1