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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 092b1224101bca77116e445c8b40779c91682d2f..b000278947345fcd1964cbee5a75fea5bb8cce4c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gnat.dg/modular.adb b/gcc/testsuite/gnat.dg/modular.adb
deleted file mode 100644 (file)
index 1eff333..0000000
--- a/gcc/testsuite/gnat.dg/modular.adb
+++ /dev/null
@@ -1,16 +0,0 @@
--- { 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;