diff options
Diffstat (limited to 'gcc/ada/erroutc.adb')
| -rw-r--r-- | gcc/ada/erroutc.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 6f928b02c28..383f0189bc3 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -1201,7 +1201,11 @@ package body Erroutc is Is_Style_Msg := (Msg'Length > 7 - and then Msg (Msg'First .. Msg'First + 6) = "(style)"); + and then Msg (Msg'First .. Msg'First + 6) = "(style)"); + + if Is_Style_Msg then + Is_Serious_Error := False; + end if; for J in Msg'Range loop if Msg (J) = '?' |