From: Samuel Tardieu <sam@rfc1149.net>
Date: Tue, 20 May 2008 20:59:44 +0000 (+0000)
Subject: modular.adb: Remove test...
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ede2e423f8612d5a09c1d34cdf1c5f90763519ba;p=gcc.git

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 092b1224101..b0002789473 100644
--- 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
index 1eff3332708..00000000000
--- 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;