1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/init_scalar1.adb b/gcc/testsuite/gnat.dg/init_scalar1.adb
new file mode 100644
index 000000000..2688e9298
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/init_scalar1.adb
@@ -0,0 +1,16 @@
+--  { dg-do run }
+--  { dg-options "-gnatws -gnatVa" }
+
+pragma Initialize_Scalars;
+procedure init_scalar1 is
+  type Fixed_3T is delta 2.0 ** (- 4)
+      range - 2.0 ** 19 ..  (2.0 ** 19 - 2.0 ** (- 4));
+  for Fixed_3T'Size use 3*8;
+
+  Write_Value : constant Fixed_3T := Fixed_3T(524287.875);
+  type singleton is array (1 .. 1) of Fixed_3T;
+  pragma Pack (singleton);
+  it : Singleton;
+begin
+   null;
+end;