storage.ads: Fix expected error message.

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

From-SVN: r134281

gcc/testsuite/ChangeLog

+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.

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;