From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 7 Sep 2017 09:27:31 +0000 (+0000)
Subject: re PR ada/82126 (gnat.dg/alignment3.adb FAILs)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a3064a99eeb5f1fd97b4a41b306decb52b036ec4;p=gcc.git

re PR ada/82126 (gnat.dg/alignment3.adb FAILs)

	PR ada/82126
	* gnat.dg/alignment3.adb: Add pragma No_Component_Reordering.

From-SVN: r251834
---

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  <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 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);