From dcf461fa7febf4b70d0bc78b4517ef2e17a9f7b7 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Mon, 14 Apr 2008 16:41:58 +0000 Subject: [PATCH] storage.ads: Fix expected error message. gcc/testsuite/ * gnat.dg/specs/storage.ads: Fix expected error message. From-SVN: r134281 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gnat.dg/specs/storage.ads | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5bf5cab06dc..1f476feb510 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2008-04-14 Samuel Tardieu + + * gnat.dg/specs/storage.ads: Fix expected error message. + 2008-04-14 Robert Dewar * 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 85a91d0724e..e544457930d 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; -- 2.30.2