Report non-support of DECISION ANY in Ada backend

AdaGenerator.py

@@ -1430,6 +1430,10 @@ def _choiceitem(choice):
 def _decision(dec):
     ''' generate the code for a decision '''
     code, local_decl = [], []
+    if dec.kind == 'any':
+        LOG.warning('Ada backend does not support the "ANY" statement')
+        code.append('-- "DECISION ANY" statement was ignored')
+        return code, local_decl
     question_type = dec.question.exprType
     # XXX check if we should get the type like this
     actual_type = getattr(

tests/regression/test-debug/orchestrator.pr

@@ -60,7 +60,14 @@ endfor;
         TASK seq := {1} // {2} // {3};
         /* CIF TASK (392, 961), (172, 35) */
         TASK seq := seq // {2} // {1};
-        /* CIF NEXTSTATE (419, 1011), (118, 50) */
+        /* CIF DECISION (443, 1011), (70, 50) */
+        DECISION any;
+                /* CIF ANSWER (398, 1081), (70, 23) */
+                ('a'):
+                /* CIF ANSWER (488, 1081), (70, 23) */
+                ('b'):
+        ENDDECISION;
+        /* CIF NEXTSTATE (419, 1119), (118, 50) */
         NEXTSTATE Wait_for_GUI;
     /* CIF STATE (423, 163), (118, 50) */
     STATE Wait_for_GUI;