From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 29 May 2011 07:56:50 +0000 (+0000)
Subject: boolean_subtype.adb: Rename to...
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=be7a83950d24551571e6d032a54b0a1bdb8a697b;p=gcc.git

boolean_subtype.adb: Rename to...

	* gnat.dg/boolean_subtype.adb: Rename to...
	* gnat.dg/boolean_subtype1.adb: ...this.

From-SVN: r174392
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 524c9f449ab..e72e84e416d 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-29  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/boolean_subtype.adb: Rename to...
+	* gnat.dg/boolean_subtype1.adb: ...this.
+
 2011-05-28  Jason Merrill  <jason@redhat.com>
 
 	* g++.dg/cpp0x/lambda/lambda-syntax1.C: New.
diff --git a/gcc/testsuite/gnat.dg/boolean_subtype.adb b/gcc/testsuite/gnat.dg/boolean_subtype.adb
deleted file mode 100644
index 3976d799233..00000000000
--- a/gcc/testsuite/gnat.dg/boolean_subtype.adb
+++ /dev/null
@@ -1,42 +0,0 @@
--- { dg-do compile }
--- { dg-options "-O2" }
-
-procedure boolean_subtype is
-
-   subtype Component_T is Boolean;
-
-   function Condition return Boolean is
-   begin
-      return True;
-   end;
-
-   V : Integer := 0;
-
-   function Component_Value return Integer is
-   begin
-      V := V + 1;
-      return V;
-   end;
-
-   Most_Significant  : Component_T := False;
-   Least_Significant : Component_T := True;
-
-begin
-
-   if Condition then
-      Most_Significant := True;
-   end if;
-
-   if Condition then
-      Least_Significant := Component_T'Val (Component_Value);
-   end if;
-
-   if Least_Significant < Most_Significant then
-      Least_Significant := Most_Significant;
-   end if;
-
-   if Least_Significant /= True then
-      raise Program_Error;
-   end if;
-
-end;
diff --git a/gcc/testsuite/gnat.dg/boolean_subtype1.adb b/gcc/testsuite/gnat.dg/boolean_subtype1.adb
new file mode 100644
index 00000000000..60e2199dba1
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/boolean_subtype1.adb
@@ -0,0 +1,42 @@
+-- { dg-do compile }
+-- { dg-options "-O2" }
+
+procedure Boolean_Subtype1 is
+
+   subtype Component_T is Boolean;
+
+   function Condition return Boolean is
+   begin
+      return True;
+   end;
+
+   V : Integer := 0;
+
+   function Component_Value return Integer is
+   begin
+      V := V + 1;
+      return V;
+   end;
+
+   Most_Significant  : Component_T := False;
+   Least_Significant : Component_T := True;
+
+begin
+
+   if Condition then
+      Most_Significant := True;
+   end if;
+
+   if Condition then
+      Least_Significant := Component_T'Val (Component_Value);
+   end if;
+
+   if Least_Significant < Most_Significant then
+      Least_Significant := Most_Significant;
+   end if;
+
+   if Least_Significant /= True then
+      raise Program_Error;
+   end if;
+
+end;