re PR testsuite/32547 (gnat.dg tasking tests fail on IRIX 5.3)

	PR ada/32547
	* lib/gnat-dg.exp (gnat_load): Redefine.

	* ada/acats/run_acats: Run run_all.sh with $SHELL.
	* ada/acats/run_all.sh: Downcase tasking not implemented message.

From-SVN: r157037

gcc/testsuite/ChangeLog

 2010-02-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 
+	PR ada/32547
+	* lib/gnat-dg.exp (gnat_load): Redefine.
+
+	* ada/acats/run_acats: Run run_all.sh with $SHELL.
+	* ada/acats/run_all.sh: Downcase tasking not implemented message.
+
+2010-02-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
 	PR libobjc/36610
 	* objc/execute/forward-1.x: XFAIL on alpha*-dec-osf*, 64-bit
 	i?86-*-solaris2*, mips-sgi-irix*, sparc*-sun-solaris2* with

gcc/testsuite/ada/acats/run_acats

@@ -55,4 +55,4 @@ chmod +x host_gnatmake
 # Limit the stack to 16MB for stack checking
 ulimit -s 16384
 
-exec $testdir/run_all.sh ${1+"$@"}
+exec $SHELL $testdir/run_all.sh ${1+"$@"}

gcc/testsuite/ada/acats/run_all.sh

@@ -282,7 +282,7 @@ for chapter in $chapters; do
       cat ${i}.log >> $dir/acats.log
       egrep -e '(==== |\+\+\+\+ |\!\!\!\! )' ${i}.log > /dev/null 2>&1
       if [ $? -ne 0 ]; then
-         grep 'Tasking not implemented' ${i}.log > /dev/null 2>&1
+         grep 'tasking not implemented' ${i}.log > /dev/null 2>&1
 
          if [ $? -ne 0 ]; then
             display "FAIL:	$i"

gcc/testsuite/lib/gnat-dg.exp

-# Copyright (C) 2006, 2007 Free Software Foundation, Inc.
+# Copyright (C) 2006, 2007, 2010 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
@@ -43,3 +43,24 @@ proc gnat-dg-prune { system text } {
 proc gnat-dg-runtest { testcases default-extra-flags } {
     return [gcc-dg-runtest $testcases ${default-extra-flags}]
 }
+
+#
+# gnat_load -- wrapper around default gnat_load to declare tasking tests
+# unsupported on platforms that lack such support
+#
+
+if { [info procs gnat_load] != [list] \
+      && [info procs prev_gnat_load] == [list] } {
+    rename gnat_load prev_gnat_load
+
+    proc gnat_load { program args } {
+	upvar name testcase
+
+	set result [eval [list prev_gnat_load $program] $args]
+	set output [lindex $result 1]
+	if { [regexp "tasking not implemented" $output] } {
+	    return [list "unsupported" $output]
+	}
+	return $result
+    }
+}