diff options
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 95080c3..3286e3a 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -5860,6 +5860,10 @@ package body Sem_Res is Append_To (Expressions (N), Error); end if; + if Root_Type (Typ) /= Standard_Boolean then + Mark_Non_ALFA_Subprogram; + end if; + Set_Etype (N, Typ); Eval_Conditional_Expression (N); end Resolve_Conditional_Expression; |