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 59af0f7b7261159b7730047259ad45bac3e44f57..d138514b1d5179568d7fd27e5c3d700dc0fa2af5 100644 (file)
--- 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 2776f5b8aaab7fafbcdc1bd8ad1b0601a2371770..cf826911c1e24b1815e91c615b1984a561bac989 100644 (file)
--- 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);