diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2012-06-28 11:08:49 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-06-28 13:08:49 +0200 |
| commit | 304b6b3edab5c727400849a9e88fbd47fde5d296 (patch) | |
| tree | dea7732319deb8d6ed18ae1a017285a4f71f8cb3 | |
| parent | e6fdc91823109071b014939570e18a276134b026 (diff) | |
| download | gcc-304b6b3edab5c727400849a9e88fbd47fde5d296.zip gcc-304b6b3edab5c727400849a9e88fbd47fde5d296.tar.gz gcc-304b6b3edab5c727400849a9e88fbd47fde5d296.tar.bz2 | |
* gnat.dg/deep_old.adb, gnat.dg/old_errors.adb: Removed, obsolete.
From-SVN: r189042
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/deep_old.adb | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/old_errors.adb | 47 |
3 files changed, 4 insertions, 57 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4b710e2..e3e6797 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 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 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; |