From: James A. Morrison <phython@gcc.gnu.org>
Date: Fri, 18 Nov 2005 06:13:07 +0000 (+0000)
Subject: run_all.sh (target_run): Kill long running tests.
X-Git-Tag: releases/gcc-4.1.0~725
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=a5ddbe56e42383785198dad3cd4842fe6e3dc0ec;p=thirdparty%2Fgcc.git

run_all.sh (target_run): Kill long running tests.

2005-11-17  James A. Morrison  <phython@gcc.gnu.org>
            Michael Chamberlain <michael@chamberlain.net.au>

        * ada/acats/run_all.sh (target_run): Kill long running tests.


Co-Authored-By: Michael Chamberlain <michael@chamberlain.net.au>

From-SVN: r107161
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 50ada5db973d..9eafe7ee9cdf 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-17  James A. Morrison  <phython@gcc.gnu.org>
+            Michael Chamberlain <michael@chamberlain.net.au>
+
+	* ada/acats/run_all.sh (target_run): Kill long running tests.
+
 2005-11-17  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
 	* gcc.dg/cleanup-8.c: Enable test on hppa*-*-hpux*.
diff --git a/gcc/testsuite/ada/acats/run_all.sh b/gcc/testsuite/ada/acats/run_all.sh
index 402ff69cb307..caaf56bb5507 100755
--- a/gcc/testsuite/ada/acats/run_all.sh
+++ b/gcc/testsuite/ada/acats/run_all.sh
@@ -12,8 +12,25 @@
 gccflags="-O2"
 gnatflags="-gnatws"
 
+if [ "x$DEJAGNU_TIMEOUT" != "x" ]; then
+  timeout=$DEJAGNU_TIMEOUT
+else
+  timeout=300
+fi
+
 target_run () {
-$*
+  sh -c "
+  (sleep $timeout && kill 2>/dev/null \$\$) &
+  watchdog=\$!
+  ($*) &
+  child=\$!
+  trap \"kill 2>/dev/null \$child\" 0 1
+  wait \$child
+  status=\$?
+  trap \"\" 0 1
+  kill 2>/dev/null \$watchdog
+  exit \$status
+  "
 }
 
 # End of customization section.