From 02806a73e829cf9c88fb93154a07b1493b1ec6f0 Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Thu, 7 Sep 2017 09:27:31 +0000 Subject: [PATCH] PR ada/82126 * gnat.dg/alignment3.adb: Add pragma No_Component_Reordering. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@251834 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ 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 59af0f7b726..d138514b1d5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-09-07 Eric Botcazou + + PR ada/82126 + * gnat.dg/alignment3.adb: Add pragma No_Component_Reordering. + 2017-09-07 Richard Biener * 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 2776f5b8aaa..cf826911c1e 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); -- 2.11.4.GIT