gcc/testsuite:

	PR ada/18302
	* ada/acats/run_all.sh (target_run): Use run_test.exp to execute
	commands.
	* ada/acats/run_test.exp: New file.

	gcc/ada:

	PR ada/18302
	* gcc-interface/Make-lang.in (check-acats): Export rootme, EXPECT.

Co-Authored-By: James A. Morrison <phython@gcc.gnu.org>

From-SVN: r151614

gcc/ada/ChangeLog

+2009-09-10  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+	PR ada/18302
+	* gcc-interface/Make-lang.in (check-acats): Export rootme, EXPECT.
+
 2009-09-08  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Subtype>: Tidy

gcc/ada/gcc-interface/Make-lang.in

@@ -841,6 +841,8 @@ check_acats_targets = $(patsubst %,check-acats%, 0 1 2)
 
 check-acats:
 	@test -d $(ACATSDIR) || mkdir -p $(ACATSDIR); \
+	rootme=`${PWD_COMMAND}`; export rootme; \
+	EXPECT=$(EXPECT); export EXPECT; \
 	if [ -z "$(CHAPTERS)" ] && [ "$(filter -j, $(MFLAGS))" = "-j" ]; \
 	then \
 	  $(MAKE) $(check_acats_targets); \

gcc/testsuite/ChangeLog

+2009-09-10  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+	    James A. Morrison  <phython@gcc.gnu.org>
+
+	PR ada/18302
+	* ada/acats/run_all.sh (target_run): Use run_test.exp to execute
+	commands.
+	* ada/acats/run_test.exp: New file.
+
 2009-09-10  Uros Bizjak <ubizjak@gmail.com>
 
 	Revert:

gcc/testsuite/ada/acats/run_all.sh

@@ -13,7 +13,7 @@ gccflags="-O2"
 gnatflags="-gnatws"
 
 target_run () {
-$*
+  eval $EXPECT -f $testdir/run_test.exp $*
 }
 
 # End of customization section.

gcc/testsuite/ada/acats/run_test.exp

+#!/usr/bin/expect -f
+
+if {[info exists env(DEJAGNU_TIMEOUT)]} {
+    set timeout $env(DEJAGNU_TIMEOUT)
+} else {
+    set timeout 300 
+}
+
+spawn -noecho $argv
+expect timeout {
+    send_user "Program timed out.\n"
+    exit 1
+}