From aeef2df9376cb8080d37224ff57bb6ce61c5130f Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Sun, 10 May 2020 23:16:43 +0200 Subject: [PATCH] [Ada] Allow aspect Relaxed_Initialization on protected entries gcc/ada/ * sem_ch13.adb (Analyze_Relaxed_Parameter): Fix for protected entries. --- gcc/ada/sem_ch13.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index a0e5146..e73cf94 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -2276,7 +2276,7 @@ package body Sem_Ch13 is -- Annotation of a subprogram; aspect expression is required - elsif Is_Subprogram (E) then + elsif Is_Subprogram_Or_Entry (E) then if Present (Expr) then -- If we analyze subprogram body that acts as its own -- 2.7.4