diff options
Diffstat (limited to 'src/errorout.adb')
| -rw-r--r-- | src/errorout.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/errorout.adb b/src/errorout.adb index d1bec4cbf..c00e46e05 100644 --- a/src/errorout.adb +++ b/src/errorout.adb @@ -383,7 +383,7 @@ package body Errorout is procedure Report_End_Group is begin - pragma Assert (In_Group > 1); + pragma Assert (In_Group > 0); In_Group := 0; Report_Handler.Message_Group.all (False); end Report_End_Group; |