From a79039c0ebcfbc1cd5b81004828626f1a81e790d Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 15 Oct 2020 00:13:51 +0200 Subject: [PATCH] [Ada] Fix copy-paste mistake in diagnostics for aspect Effective_Writes gcc/ada/ * sem_ch13.adb (Analyze_One_Aspect): Replace duplicate of Effective_Reads. --- gcc/ada/sem_ch13.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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", -- 2.30.2