From 304b6b3edab5c727400849a9e88fbd47fde5d296 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 28 Jun 2012 11:08:49 +0000
Subject: [PATCH] * gnat.dg/deep_old.adb, gnat.dg/old_errors.adb: Removed,
 obsolete.

From-SVN: r189042
---
 gcc/testsuite/ChangeLog              |  4 +++
 gcc/testsuite/gnat.dg/deep_old.adb   | 10 ------
 gcc/testsuite/gnat.dg/old_errors.adb | 47 ----------------------------
 3 files changed, 4 insertions(+), 57 deletions(-)
 delete mode 100644 gcc/testsuite/gnat.dg/deep_old.adb
 delete mode 100644 gcc/testsuite/gnat.dg/old_errors.adb

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4b710e28abd..e3e6797a342 100644
--- 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
index d7818ff9686..00000000000
--- 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
index a5e4d42177f..00000000000
--- 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;