From 990eb9d4c244324771a7d878a168bb8eba1850c0 Mon Sep 17 00:00:00 2001
From: Anthony Green <green@moxielogic.com>
Date: Sun, 28 Sep 2014 00:50:29 -0400
Subject: [PATCH] Only run the complex type tests on supported platforms.

---
 testsuite/libffi.call/call.exp | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/testsuite/libffi.call/call.exp b/testsuite/libffi.call/call.exp
index 36d13d8e..5177f07f 100644
--- a/testsuite/libffi.call/call.exp
+++ b/testsuite/libffi.call/call.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 2003, 2006, 2009, 2010 Free Software Foundation, Inc.
+# Copyright (C) 2003, 2006, 2009, 2010, 2014 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -19,7 +19,22 @@ libffi-init
 
 global srcdir subdir
 
-run-many-tests [lsort [glob -nocomplain -- $srcdir/$subdir/*.{c,cc}]] ""
+set tlist [lsearch -inline -all -not -glob [lsort [glob -nocomplain -- $srcdir/$subdir/*.{c,cc}]] *complex*]
+set ctlist [lsearch -inline -all -glob [lsort [glob -nocomplain -- $srcdir/$subdir/*.{c,cc}]] *complex*]
+
+run-many-tests $tlist ""
+
+if { ![istarget s390*] } {
+
+    foreach test $ctlist {
+	unsupported "$test"
+    }
+
+} else {
+
+  run-many-tests $ctlist ""
+
+}
 
 dg-finish