diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 313a5efa165..c801498bc2a 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-08-19  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* inline.adb (Initialize, Lock): Deal with
+	Called_Pending_Instantiations.
+
 2019-08-19  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_ch6.adb (Check_Synchronized_Overriding): Complete
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index f7bb1a94734..22a50e2b056 100644
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -4416,6 +4416,7 @@ package body Inline is
    procedure Initialize is
    begin
       Pending_Instantiations.Init;
+      Called_Pending_Instantiations.Init;
       Inlined_Bodies.Init;
       Successors.Init;
       Inlined.Init;
@@ -4734,6 +4735,8 @@ package body Inline is
    begin
       Pending_Instantiations.Release;
       Pending_Instantiations.Locked := True;
+      Called_Pending_Instantiations.Release;
+      Called_Pending_Instantiations.Locked := True;
       Inlined_Bodies.Release;
       Inlined_Bodies.Locked := True;
       Successors.Release;