1 files changed, 5 insertions, 0 deletions
diff --git a/src/libraries.adb b/src/libraries.adb
index 243256059..dd70b615a 100644
--- a/src/libraries.adb
+++ b/src/libraries.adb
@@ -1056,6 +1056,11 @@ package body Libraries is
          end if;
       end;
 
+      if Unit_Id = Null_Identifier then
+         pragma Assert (Flags.Flag_Force_Analysis);
+         return;
+      end if;
+
       --  Try to find a design unit with the same name in the work library.
       Id := Get_Hash_Id_For_Unit (Unit);
       Design_Unit := Unit_Hash_Table (Id);