From 5ce4352251de3720974920752afebf51a63e2ecd Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Wed, 19 Dec 2007 17:27:18 +0100
Subject: [PATCH] Update error message.

From-SVN: r131087
---
 gcc/testsuite/gnat.dg/specs/variant_part.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/testsuite/gnat.dg/specs/variant_part.ads b/gcc/testsuite/gnat.dg/specs/variant_part.ads
index b7ac16ccd420..afc92cde5d70 100644
--- a/gcc/testsuite/gnat.dg/specs/variant_part.ads
+++ b/gcc/testsuite/gnat.dg/specs/variant_part.ads
@@ -1,7 +1,7 @@
 -- { dg-do compile }
 package Variant_Part is
    type T1(b: boolean) is record
-     case (b) is              -- { dg-error "discriminant name expected" }
+     case (b) is    -- { dg-error "discriminant name may not be parenthesized" }
         when others => null;
      end case;
    end record;
-- 
2.47.2