diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb
index 033ecf3b7be750620451bcabb5e6d8a9f5e497fb..bc3da30b0cf27e9bd1f97df30d1e699f42610d08 100644
--- a/gcc/ada/frontend.adb
+++ b/gcc/ada/frontend.adb
@@ -531,7 +531,7 @@ begin
    --  formals). It is invoked using pragma Debug to avoid adding any cost
    --  when the compiler is built with assertions disabled.
 
-   if not Debug_Flag_Underscore_XX then
+   if not Debug_Flag_Underscore_XX and then not CodePeer_Mode then
       pragma Debug (Exp_Ch6.Validate_Subprogram_Calls (Cunit (Main_Unit)));
    end if;