From 2d093d6183b84a94a4a0da13c5d677cf8e017995 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 a0e5146e5947..e73cf949dfb6 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.47.2