* gnat.dg/deep_old.adb, gnat.dg/old_errors.adb: Removed, obsolete.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189042 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4b710e2..e3e6797 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2012-06-28  Arnaud Charlet  <charlet@adacore.com>
+
+       * gnat.dg/deep_old.adb, gnat.dg/old_errors.adb: Removed, obsolete.
+
 2012-06-28  Alexandre Oliva  <aoliva@redhat.com>
 
        PR debug/53671

diff --git a/gcc/testsuite/gnat.dg/deep_old.adb b/gcc/testsuite/gnat.dg/deep_old.adb
deleted file mode 100644 (file)
index d7818ff..0000000
--- a/gcc/testsuite/gnat.dg/deep_old.adb
+++ /dev/null
@@ -1,10 +0,0 @@
---  { dg-options "-gnatws" }
-
-procedure Deep_Old (X : Integer) is
-begin
-   begin
-      if X = X'Old then
-         null;
-      end if;
-   end;
-end Deep_Old;

diff --git a/gcc/testsuite/gnat.dg/old_errors.adb b/gcc/testsuite/gnat.dg/old_errors.adb
deleted file mode 100644 (file)
index a5e4d42..0000000
--- a/gcc/testsuite/gnat.dg/old_errors.adb
+++ /dev/null
@@ -1,47 +0,0 @@
--- { dg-do compile }
-package body Old_Errors is
-
-   A : Integer;
-
-   function F
-     (X : Integer := A'Old) -- { dg-error "can only appear within subprogram" }
-     return Integer is
-   begin
-      return X;
-   end F;
-
-   procedure P (I : in Integer; O : out Integer; IO : in out Integer) is
-      Y : Integer := 0;
-      function G
-        (X : Integer := Y'Old) -- { dg-error "cannot refer to local variable" }
-        return Integer is
-      begin
-         return X;
-      end G;
-
-      function H (X : Integer := A'Old) return Integer is  -- OK
-      begin
-         return X;
-      end H;
-
-   begin
-      Y := Y'Old; -- { dg-error "cannot refer to local variable" }
-      declare
-         Z : Integer := 0;
-         procedure Inner is
-            IL : Integer := 0;
-         begin
-            IL := IL'Old; -- { dg-error "cannot refer to local variable" }
-            Z  := Z'Old;  -- OK
-         end Inner;
-      begin
-         Y := Z'Old; -- { dg-error "cannot refer to local variable" }
-      end;
-      Y := I'Old;   -- { dg-warning "Old applied to constant has no effect" }
-      Y := O'Old;   -- OK
-      Y := IO'Old;  -- OK
-      Y := G;       -- OK, error has been signalled at G declaration
-      pragma Assert (G (3)'Old = Y); -- { dg-error "cannot refer to local variable" }
-   end P;
-
-end Old_Errors;