diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2017-09-07 09:27:31 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2017-09-07 09:27:31 +0000 |
| commit | a3064a99eeb5f1fd97b4a41b306decb52b036ec4 (patch) | |
| tree | 2b37eaee5f314e449cd52c5e399fcf2cdee15535 /gcc | |
| parent | a7976089dba5e22778e4496e1b86e022241f9d69 (diff) | |
| download | gcc-a3064a99eeb5f1fd97b4a41b306decb52b036ec4.zip gcc-a3064a99eeb5f1fd97b4a41b306decb52b036ec4.tar.gz gcc-a3064a99eeb5f1fd97b4a41b306decb52b036ec4.tar.bz2 | |
re PR ada/82126 (gnat.dg/alignment3.adb FAILs)
PR ada/82126
* gnat.dg/alignment3.adb: Add pragma No_Component_Reordering.
From-SVN: r251834
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/alignment3.adb | 11 |
2 files changed, 11 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 59af0f7..d138514 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-09-07 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/82126 + * gnat.dg/alignment3.adb: Add pragma No_Component_Reordering. + 2017-09-07 Richard Biener <rguenther@suse.de> * gcc.dg/tree-ssa/ssa-thread-12.c: XFAIL third FSM threading diff --git a/gcc/testsuite/gnat.dg/alignment3.adb b/gcc/testsuite/gnat.dg/alignment3.adb index 2776f5b..cf82691 100644 --- a/gcc/testsuite/gnat.dg/alignment3.adb +++ b/gcc/testsuite/gnat.dg/alignment3.adb @@ -9,21 +9,22 @@ procedure alignment3 is when others => A, B : Natural; end case; end record; - + type Link_Type (Short_Values : Boolean) is record Input, Output : Value_Type (Short_Values); Initialized : Boolean; N_Probes : Natural; end record; - + pragma No_Component_Reordering (Link_Type); + type Link_Access is access Link_Type; - + type Natural_Access is access all Natural; function To_Natural_Access is new Ada.Unchecked_Conversion (System.Address, Natural_Access); - + Ptr : Natural_Access; - + procedure N_Probes_For (Link : Link_Access) is begin Ptr := To_Natural_Access (Link.N_Probes'address); |