diff --git a/testsuite/ada/gnat_compare/gnat_compare.adb b/testsuite/ada/gnat_compare/gnat_compare.adb
index e6b835fe6..71e11b988 100644
--- a/testsuite/ada/gnat_compare/gnat_compare.adb
+++ b/testsuite/ada/gnat_compare/gnat_compare.adb
@@ -75,7 +75,7 @@ procedure GNAT_Compare is
          "Skip the build of the project to process");
 
       package Skip_GPRclean is new Parse_Flag
-        (App.Args.Parser, "-C", "--skip-gprclean",
+        (App.Args.Parser, "-sc", "--skip-gprclean",
          "Skip the run of gprclean at the end of gnat_compare execution");
    end Args;