modular.adb: Remove test...

    gcc/testsuite/
	* gnat.dg/modular.adb: Remove test, gnat.dg/modular1.adb already
	checks that the bug is fixed and is more concise.

From-SVN: r135679

gcc/testsuite/ChangeLog

 2008-05-20  Samuel Tardieu  <sam@rfc1149.net>
 
+	* gnat.dg/modular.adb: Remove test, gnat.dg/modular1.adb already
+	checks that the bug is fixed and is more concise.
+
+2008-05-20  Samuel Tardieu  <sam@rfc1149.net>
+
 	PR ada/35791
 	* gnat.dg/check_displace_generation.adb: New.
 

gcc/testsuite/gnat.dg/modular.adb

--- { dg-do run }
-with Ada.Text_IO;
-procedure Modular is
-   type T1 is mod 9;
-   package T1_IO is new Ada.Text_IO.Modular_IO(T1);
-   X: T1 := 8;
-   J1: constant := 5;
-begin
-   for J2 in 5..5 loop
-      pragma Assert(X*(2**J1) = X*(2**J2));
-      if X*(2**J1) /= X*(2**J2) then
-         Ada.Text_IO.Put_Line("Failed");
-         raise Program_Error;
-      end if;
-   end loop;
-end Modular;