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

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

From-SVN: r251834

gcc/testsuite/ChangeLog

+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

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