1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/lto8.adb b/gcc/testsuite/gnat.dg/lto8.adb
new file mode 100644
index 000000000..68f9ea119
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto8.adb
@@ -0,0 +1,22 @@
+-- { dg-do run }
+-- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -flto" { target lto } }
+
+pragma Locking_Policy (Ceiling_Locking);
+
+with Lto8_Pkg; use Lto8_Pkg;
+
+procedure Lto8 is
+   task Tsk is
+      pragma Priority (10);
+   end Tsk;
+   task body Tsk is
+   begin
+      Sema2.Seize;
+      Sema1.Seize;
+   exception
+      when Program_Error => null;
+   end;
+begin
+   null;
+end;