test_oalign.adb, [...]: New test.

2007-08-31  Olivier Hainque  <hainque@adacore.com>

	* gnat.dg/test_oalign.adb, oalign[12].ads: New test.

From-SVN: r127957

gcc/testsuite/ChangeLog

+2007-08-31  Olivier Hainque  <hainque@adacore.com>
+
+	* gnat.dg/test_oalign.adb, oalign[12].ads: New test.
+	
 2007-08-31  David Edelsohn  <edelsohn@gnu.org>
             Revital Eres  <eres@il.ibm.com>
 

gcc/testsuite/gnat.dg/oalign1.ads

+
+package Oalign1 is
+   Klunk1 : Integer := 12;
+   for Klunk1'Alignment use Standard'Maximum_Alignment;
+end;

gcc/testsuite/gnat.dg/oalign2.ads

+
+package Oalign2 is
+   Klunk2 : Integer := 12;
+   for Klunk2'Alignment use Standard'Maximum_Alignment;
+end;

gcc/testsuite/gnat.dg/test_oalign.adb

+-- { dg-do run }
+
+with System.Storage_Elements; use System.Storage_Elements;
+with Oalign1, Oalign2; use Oalign1, Oalign2;
+
+procedure Test_Oalign is
+begin
+   if Klunk1'Address mod Klunk1'Alignment /= 0 then
+      raise Program_Error;
+   end if;
+   if Klunk2'Address mod Klunk2'Alignment /= 0 then
+      raise Program_Error;
+   end if;
+end;