diff options
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/variant_part.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/variant_part.ads b/gcc/testsuite/gnat.dg/specs/variant_part.ads index b7ac16c..afc92cd 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; |