From af6ffd394adde39a33d4f652bf4e53d4a2f2baea Mon Sep 17 00:00:00 2001
From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 29 Dec 2009 16:12:03 +0000
Subject: [PATCH] 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
---
gcc/testsuite/ChangeLog | 5 +++++
gcc/testsuite/gnat.dg/test_raise_from_pure.adb | 9 +++++++--
gcc/testsuite/gnat.dg/warn5.adb | 2 +-
3 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 179b08cb36b4..7705d827513b 100644
--- 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 a3a9c649659b..66db2232e77c 100644
--- 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 108bc594c0c4..77e4a66f7331 100644
--- 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
--
GitLab