diff --git a/gcc/testsuite/gnat.dg/specs/variant_part.ads b/gcc/testsuite/gnat.dg/specs/variant_part.ads
index b7ac16ccd42..afc92cde5d7 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;