diff --git a/testsuite/ada/gnat_compare/gnat_compare.adb b/testsuite/ada/gnat_compare/gnat_compare.adb
index 485e19e19..e6b835fe6 100644
--- a/testsuite/ada/gnat_compare/gnat_compare.adb
+++ b/testsuite/ada/gnat_compare/gnat_compare.adb
@@ -335,6 +335,8 @@ procedure GNAT_Compare is
          Put_Line ("Could not locate gprclean on the PATH");
       end if;
 
+      Args.Append (+"-q");
+      Args.Append (+"-r");
       Args.Append (+"-P" & Project_File);
       for V of App.Args.Scenario_Vars.Get loop
          Args.Append ("-X" & V);