From c8cf8c3fd0793e1d7ba8c6d0e906384f4fd9170c Mon Sep 17 00:00:00 2001
From: Justin Squirek <squirek@adacore.com>
Date: Thu, 21 Dec 2023 18:41:15 +0000
Subject: ada: Spurious reference warning on qualified expression

Incremental improvement/clean up.

gcc/ada/

	* sem_warn.adb (Within_Postcondition): Add coverage for
	Preconditions
---
 gcc/ada/sem_warn.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gcc/ada')

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 54d8920..57bdee6 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -1978,7 +1978,8 @@ package body Sem_Warn is
                            if Nkind (Nod) = N_Pragma
                              and then
                                Pragma_Name_Unmapped (Nod)
-                                in Name_Postcondition
+                                in Name_Precondition
+                                 | Name_Postcondition
                                  | Name_Refined_Post
                                  | Name_Contract_Cases
                            then
-- 
cgit v1.1