From da85f3f2c696977c8b0864b650e9606e05a61c1f Mon Sep 17 00:00:00 2001
From: Yannick Moy <moy@adacore.com>
Date: Mon, 9 May 2022 12:49:41 +0200
Subject: [PATCH] [Ada] Fix classification of Subprogram_Variant as assertion
pragma
This pragma was wrongly not recognized as an assertion pragma. Now
fixed.
gcc/ada/
* sem_prag.ads (Assertion_Expression_Pragmas): Fix value for
pragma Subprogram_Variant.
---
gcc/ada/sem_prag.ads | 1 +
1 file changed, 1 insertion(+)
diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads
index 44590aca6319..0a1ad5bedf11 100644
--- a/gcc/ada/sem_prag.ads
+++ b/gcc/ada/sem_prag.ads
@@ -149,6 +149,7 @@ package Sem_Prag is
Pragma_Precondition => True,
Pragma_Predicate => True,
Pragma_Refined_Post => True,
+ Pragma_Subprogram_Variant => True,
Pragma_Test_Case => True,
Pragma_Type_Invariant => True,
Pragma_Type_Invariant_Class => True,
--
GitLab