FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test_raise_from_pure.adb: XFAIL for the ARM.

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

From-SVN: r155505
This commit is contained in:
Eric Botcazou 2009-12-29 16:12:03 +00:00 • committed by Eric Botcazou
parent 700d289947
commit af6ffd394a
3 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -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

9
gcc/testsuite/gnat.dg/test_raise_from_pure.adb
View file

@ -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

2
gcc/testsuite/gnat.dg/warn5.adb
View file

@ -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