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 524c9f449ab626ce527e445f916c97a493db2b2b..e72e84e416df0a77cdc3811cc528ba909626794d 100644 (file)
--- 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 (file)
index 3976d79..0000000
--- 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 (file)
index 0000000..60e2199
--- /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;