* testsuite/lib/libstdc++.exp (check_v3_target_binary_io): New.

[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / testsuite / lib / dg-options.exp

diff --git a/libstdc++-v3/testsuite/lib/dg-options.exp b/libstdc++-v3/testsuite/lib/dg-options.exp
index 6e8f74b..1d9af09 100644 (file)
--- a/libstdc++-v3/testsuite/lib/dg-options.exp
+++ b/libstdc++-v3/testsuite/lib/dg-options.exp
@@ -151,3 +151,12 @@ proc dg-require-swprintf { args } {
     }
     return
 }
+
+proc dg-require-binary-io { args } {
+    if { ![ check_v3_target_binary_io ] } {
+        upvar dg-do-what dg-do-what
+        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
+        return
+    }
+    return
+}