diff options
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 935a26d..c7e340a 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -16026,9 +16026,7 @@ package body Sem_Prag is J := J + 1; C := Get_String_Char (Str, J); Chr := Get_Character (C); - if Chr = 'W' then - exit; - end if; + exit when Chr = 'W'; OK := False; -- Dot case |