diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:27:18 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:27:18 +0100 |
| commit | 5ce4352251de3720974920752afebf51a63e2ecd (patch) | |
| tree | bc696bbe37d828de1fc81002329ec0d5b2331bf3 | |
| parent | 482434dcf0bf6b659c2c392f851282d07373023e (diff) | |
| download | gcc-5ce4352251de3720974920752afebf51a63e2ecd.zip gcc-5ce4352251de3720974920752afebf51a63e2ecd.tar.gz gcc-5ce4352251de3720974920752afebf51a63e2ecd.tar.bz2 | |
Update error message.
From-SVN: r131087
| -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; |