1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/lto6.adb b/gcc/testsuite/gnat.dg/lto6.adb
new file mode 100644
index 000000000..f8cbf4dd0
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto6.adb
@@ -0,0 +1,11 @@
+-- { dg-do run }
+-- { dg-options "-O2 -flto" { target lto } }
+
+with Lto6_Pkg; use Lto6_Pkg;
+
+procedure Lto6 is
+  type Enum is (A, B, C, D);
+  Table : array (B .. C, 1 .. 1) of F_String := (others => (others => Null_String));
+begin
+  Table := (others => (others => Null_String));
+end;