From 0115e4700b7956d1a125fe88114989cc173e293e Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 13 Jan 2004 12:48:46 +0100
Subject: [PATCH] Add extra checks.

From-SVN: r75801
---
 gcc/testsuite/ada/acats/run_all.sh | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/ada/acats/run_all.sh b/gcc/testsuite/ada/acats/run_all.sh
index 78d6071..d11c6d7 100755
--- a/gcc/testsuite/ada/acats/run_all.sh
+++ b/gcc/testsuite/ada/acats/run_all.sh
@@ -191,8 +191,15 @@ for chapter in $chapters; do
          extraflags="$extraflags -gnatE"
       fi
       test=$dir/tests/$chapter/$i
-      mkdir $test
-      cd $test
+      mkdir $test && cd $test >> $dir/acats.log 2>&1
+
+      if [ $? -ne 0 ]; then
+         display "FAIL:	$i"
+         failed="${failed}${i} "
+         clean_dir
+         continue
+      fi
+
       target_gnatchop -c -w `ls ${test}*.a ${test}*.ada ${test}*.adt ${test}*.am ${test}*.dep 2> /dev/null` >> $dir/acats.log 2>&1
       ls ${i}?.adb > ${i}.lst 2> /dev/null
       ls ${i}*m.adb >> ${i}.lst 2> /dev/null
-- 
2.7.4