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 54d8920a9438da2363bf74ad2b1ed7ca44debc64..57bdee653566c90b5f2445b93d242e7c451c2769 100644 (file)
--- 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