[COMMITTED 06/10] ada: Fix Is_Case_Choice_Pattern for allocators

[Marc Poulhiès]

From: Viljar Indus <in...@adacore.com>

gcc/ada/ChangeLog:

        * sem_case.adb (Is_Case_Choice_Pattern): Return False for allocators.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sem_case.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index c81b56337f6a..050e456d49c3 100644
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -3890,6 +3890,7 @@ package body Sem_Case is
                return True;
 
             when N_Empty
+               | N_Allocator
                | N_Statement_Other_Than_Procedure_Call
                | N_Procedure_Call_Statement
                | N_Declaration
-- 
2.43.0