diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-12-29 16:12:03 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-12-29 16:12:03 +0000 |
| commit | af6ffd394adde39a33d4f652bf4e53d4a2f2baea (patch) | |
| tree | 8508422f1b3d01a0b54840f5360a77a0c72bf3fa | |
| parent | 700d2899472c55c8bf83db69056f45bbd2fb7b17 (diff) | |
| download | gcc-af6ffd394adde39a33d4f652bf4e53d4a2f2baea.zip gcc-af6ffd394adde39a33d4f652bf4e53d4a2f2baea.tar.gz gcc-af6ffd394adde39a33d4f652bf4e53d4a2f2baea.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/test_raise_from_pure.adb | 9 | ||||
| -rw-r--r-- | 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 179b08c..7705d82 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 a3a9c64..66db223 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 108bc59..77e4a66 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 |