From 5324b3552545feac71c7c0e4213cc803ec4313b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Laurent=20Th=C3=A9venoux?= <thevenoux@adacore.com>
Date: Tue, 30 Jan 2024 17:17:09 +0100
Subject: [PATCH] gnat_compare: spawn gprbuild in build only mode

Pass the `-c` switch to gprbuild when spawning it.
---
 testsuite/ada/gnat_compare/gnat_compare.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/testsuite/ada/gnat_compare/gnat_compare.adb b/testsuite/ada/gnat_compare/gnat_compare.adb
index 934f51477..9c05b2309 100644
--- a/testsuite/ada/gnat_compare/gnat_compare.adb
+++ b/testsuite/ada/gnat_compare/gnat_compare.adb
@@ -284,6 +284,7 @@ procedure GNAT_Compare is
          Put_Line ("Could not locate gprbuild on the PATH");
       end if;
 
+      Args.Append (+"-c");
       Args.Append (+"-q");
       Args.Append (+"-p");
       Args.Append (+"-P" & Project_File);