From: Justin Squirek <squirek@adacore.com>
Date: Thu, 21 Dec 2023 18:41:15 +0000 (+0000)
Subject: ada: Spurious reference warning on qualified expression
X-Git-Tag: basepoints/gcc-16~9360
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=c8cf8c3fd0793e1d7ba8c6d0e906384f4fd9170c;p=thirdparty%2Fgcc.git

ada: Spurious reference warning on qualified expression

Incremental improvement/clean up.

gcc/ada/

	* sem_warn.adb (Within_Postcondition): Add coverage for
	Preconditions
---

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 54d8920a943..57bdee65356 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