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 000000000..afc92cde5
--- /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 may not be parenthesized" }
+        when others => null;
+     end case;
+   end record;
+end Variant_Part;