diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/specs/variant_part.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/specs/variant_part.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/variant_part.ads b/gcc/testsuite/gnat.dg/specs/variant_part.ads new file mode 100644 index 0000000..b7ac16c --- /dev/null +++ b/gcc/testsuite/gnat.dg/specs/variant_part.ads @@ -0,0 +1,8 @@ +-- { dg-do compile } +package Variant_Part is + type T1(b: boolean) is record + case (b) is -- { dg-error "discriminant name expected" } + when others => null; + end case; + end record; +end Variant_Part; |