1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/pack14.adb b/gcc/testsuite/gnat.dg/pack14.adb
new file mode 100644
index 000000000..b3764316b
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/pack14.adb
@@ -0,0 +1,16 @@
+-- { dg-do compile }
+
+procedure Pack14 is
+
+   subtype False_T is Boolean range False .. False;
+
+   type Rec is record
+      F : False_T;
+   end record;
+   pragma Pack (Rec);
+
+   A : Rec := (F => False);
+
+begin
+   null;
+end;