procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

storage.ads: Fix expected error message.

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

From-SVN: r134281
This commit is contained in:
Samuel Tardieu 2008-04-14 16:41:58 +00:00 • committed by Samuel Tardieu
parent 2efcad9f79
commit dcf461fa7f
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View file

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

2
gcc/testsuite/gnat.dg/specs/storage.ads
View file

@ -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;