diff options
| author | Samuel Tardieu <sam@rfc1149.net> | 2008-04-14 16:41:58 +0000 |
|---|---|---|
| committer | Samuel Tardieu <sam@gcc.gnu.org> | 2008-04-14 16:41:58 +0000 |
| commit | dcf461fa7febf4b70d0bc78b4517ef2e17a9f7b7 (patch) | |
| tree | f46b686c0c18d9780206dc19d79e72441d6451fa | |
| parent | 2efcad9f79ca7e4708a3f029b88e83b15eaa0727 (diff) | |
| download | gcc-dcf461fa7febf4b70d0bc78b4517ef2e17a9f7b7.zip gcc-dcf461fa7febf4b70d0bc78b4517ef2e17a9f7b7.tar.gz gcc-dcf461fa7febf4b70d0bc78b4517ef2e17a9f7b7.tar.bz2 | |
storage.ads: Fix expected error message.
gcc/testsuite/
* gnat.dg/specs/storage.ads: Fix expected error message.
From-SVN: r134281
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/storage.ads | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5bf5cab..1f476fe 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2008-04-14 Samuel Tardieu <sam@rfc1149.net> + + * gnat.dg/specs/storage.ads: Fix expected error message. + 2008-04-14 Robert Dewar <dewar@adacore.com> * gnat.dg/specs/linker_section.ads: Check for more error conditions. diff --git a/gcc/testsuite/gnat.dg/specs/storage.ads b/gcc/testsuite/gnat.dg/specs/storage.ads index 85a91d0..e544457 100644 --- a/gcc/testsuite/gnat.dg/specs/storage.ads +++ b/gcc/testsuite/gnat.dg/specs/storage.ads @@ -3,7 +3,7 @@ with System.Pool_Global; package Storage is x1: System.Pool_Global.Unbounded_No_Reclaim_Pool; type T1 is access integer; - for T1'Storage_Pool use (x1); -- { dg-error "denote a variable" } + for T1'Storage_Pool use (x1); -- { dg-error "must be a variable" } type T2 is access Integer; for T2'Storage_Pool use x1; end Storage; |