* gcc-interface/utils.c (gnat_write_global_declarations): Put a name

	on the dummy global variable.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@187692 138bc75d-0d04-0410-961f-82ee72b054a4

3 files changed, 28 insertions, 0 deletions

diff --git a/gcc/testsuite/gnat.dg/lto13.adb b/gcc/testsuite/gnat.dg/lto13.adb
new file mode 100644
index 00000000000..7c7fe16043f
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto13.adb
@@ -0,0 +1,9 @@
+-- { dg-do link }
+-- { dg-options "-g -flto" { target lto } }
+
+with Lto13_Pkg; use Lto13_Pkg;
+
+procedure Lto13 is
+begin
+  Proc;
+end;
diff --git a/gcc/testsuite/gnat.dg/lto13_pkg.adb b/gcc/testsuite/gnat.dg/lto13_pkg.adb
new file mode 100644
index 00000000000..f8b5057a15e
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto13_pkg.adb
@@ -0,0 +1,10 @@
+package body Lto13_Pkg is
+
+  procedure Proc is
+  begin
+    raise Constraint_Error;
+  end;
+
+  type T is null record;
+
+end Lto13_Pkg;
diff --git a/gcc/testsuite/gnat.dg/lto13_pkg.ads b/gcc/testsuite/gnat.dg/lto13_pkg.ads
new file mode 100644
index 00000000000..ce91d1c018c
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto13_pkg.ads
@@ -0,0 +1,9 @@
+package Lto13_Pkg is
+
+  procedure Proc;
+
+private
+
+  type T;
+
+end Lto13_Pkg;