test_raise_from_pure.adb: XFAIL for the ARM.

	* gnat.dg/test_raise_from_pure.adb: XFAIL for the ARM.
	* gnat.dg/warn5.adb: Expect warning on the ARM.

From-SVN: r155505

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 179b08cb36b44f8cc1c270f7e694836f72e97062..7705d827513b7a7725cafc50123edd8871e5b8dd 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-29  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/test_raise_from_pure.adb: XFAIL for the ARM.
+       * gnat.dg/warn5.adb: Expect warning on the ARM.
+
 2009-12-28  Jason Merrill  <jason@redhat.com>
 
        PR c++/42447

diff --git a/gcc/testsuite/gnat.dg/test_raise_from_pure.adb b/gcc/testsuite/gnat.dg/test_raise_from_pure.adb
index a3a9c649659bb9183c72928741725434745e3173..66db2232e77c761d2ecae6592694d71878d58777 100644 (file)
--- a/gcc/testsuite/gnat.dg/test_raise_from_pure.adb
+++ b/gcc/testsuite/gnat.dg/test_raise_from_pure.adb
@@ -1,6 +1,11 @@
---  { dg-do run }
---  { dg-options "-O2" }
+-- { dg-do run { xfail arm*-*-* } }
+-- { dg-options "-O2" }
+
+-- This is an optimization test and its failure is only a missed optimization.
+-- For technical reasons it cannot pass with SJLJ exceptions.
+
 with Raise_From_Pure; use Raise_From_Pure;
+
 procedure test_raise_from_pure is
    K : Integer;
 begin

diff --git a/gcc/testsuite/gnat.dg/warn5.adb b/gcc/testsuite/gnat.dg/warn5.adb
index 108bc594c0c4f9fab30112a78a98fc5cf6865779..77e4a66f7331336564911fc39ec2c3e9daeb93c2 100644 (file)
--- a/gcc/testsuite/gnat.dg/warn5.adb
+++ b/gcc/testsuite/gnat.dg/warn5.adb
@@ -26,7 +26,7 @@ procedure Warn5 is
 
   function Pointer (Pos : Natural; List : List_Type) return Pointer_Type is
   begin
-    return To_Ptr(List.A(Pos)'Address); -- { dg-warning "source alignment" "" { target alpha*-*-* hppa*-*-* ia64-*-* mips*-*-* sparc*-*-* } }
+    return To_Ptr(List.A(Pos)'Address); -- { dg-warning "source alignment" "" { target alpha*-*-* arm*-*-* hppa*-*-* ia64-*-* mips*-*-* sparc*-*-* } }
   end;
 
 begin