diff options
Diffstat (limited to 'gcc')
| -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 |