diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 185e230ee372..2a992754006c 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-16  Laurent GUERBY  <laurent@guerby.net>
+
+	PR ada/23788
+	* s-tpinop.ads: Make this unit Preelaborate.
+
 2005-09-16  Andreas Jaeger  <aj@suse.de>
 
 	* socket.c: Add string.h for memcpy.
diff --git a/gcc/ada/s-tpinop.ads b/gcc/ada/s-tpinop.ads
index 290aed49560b..90a5c1d1916c 100644
--- a/gcc/ada/s-tpinop.ads
+++ b/gcc/ada/s-tpinop.ads
@@ -36,6 +36,7 @@ with System.Interrupt_Management;
 with System.Tasking;
 
 package System.Task_Primitives.Interrupt_Operations is
+   pragma Preelaborate;
 
    package IM renames System.Interrupt_Management;
    package ST renames System.Tasking;