From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 14 Oct 2020 22:13:51 +0000 (+0200)
Subject: [Ada] Fix copy-paste mistake in diagnostics for aspect Effective_Writes
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a79039c0ebcfbc1cd5b81004828626f1a81e790d;p=gcc.git

[Ada] Fix copy-paste mistake in diagnostics for aspect Effective_Writes

gcc/ada/

	* sem_ch13.adb (Analyze_One_Aspect): Replace duplicate of
	Effective_Reads.
---

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 3a906c7f610..4659a48c387 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -2849,7 +2849,7 @@ package body Sem_Ch13 is
               or else A_Id = Aspect_Async_Readers
               or else A_Id = Aspect_Async_Writers
               or else A_Id = Aspect_Effective_Reads
-              or else A_Id = Aspect_Effective_Reads
+              or else A_Id = Aspect_Effective_Writes
             then
                Error_Msg_Name_1 := Nam;
 
@@ -2882,7 +2882,7 @@ package body Sem_Ch13 is
                      and then A_Id /= Aspect_Async_Readers
                      and then A_Id /= Aspect_Async_Writers
                      and then A_Id /= Aspect_Effective_Reads
-                     and then A_Id /= Aspect_Effective_Reads
+                     and then A_Id /= Aspect_Effective_Writes
                   then
                      Error_Msg_N
                        ("aspect % not allowed for formal type declaration",