gcc/testsuite/
* gnat.dg/specs/storage.ads: Fix expected error message.
From-SVN: r134281
+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.
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;