storage.ads: Fix expected error message.

    gcc/testsuite/
	* gnat.dg/specs/storage.ads: Fix expected error message.

From-SVN: r134281

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5bf5cab06dc2a2577b1f137311ad0a1412b76396..1f476feb510cfe10a188cce5d6533783e0ab8311 100644 (file)
--- 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 85a91d0724e18a2587b810eae81ef8cb58322f3b..e544457930dbdd555c484842744e77729ea4b080 100644 (file)
--- 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;