diff options
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 4335940..44fc955 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -7196,9 +7196,7 @@ package body Sem_Res is -- Check unreachable code after calls to procedures with No_Return - if Ekind (Nam) = E_Procedure - and then No_Return (Nam) - then + if Ekind (Nam) = E_Procedure and then No_Return (Nam) then Check_Unreachable_Code (N); end if; |