diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-01-26 07:49:57 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-01-26 07:49:57 +0100 |
commit | 0978b48007afe920d8f7000c2c8722327c901259 (patch) | |
tree | 2bccc8796a0bb037a363e2fa698c038af50e56d1 /src/grt/grt-main.adb | |
parent | 6b81ec185f16791362ca770f391578c2a8b828f0 (diff) | |
download | ghdl-0978b48007afe920d8f7000c2c8722327c901259.tar.gz ghdl-0978b48007afe920d8f7000c2c8722327c901259.tar.bz2 ghdl-0978b48007afe920d8f7000c2c8722327c901259.zip |
grt: add Error_NF to report final error status. Fix #803
Diffstat (limited to 'src/grt/grt-main.adb')
-rw-r--r-- | src/grt/grt-main.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/grt/grt-main.adb b/src/grt/grt-main.adb index e97b02eea..71b148467 100644 --- a/src/grt/grt-main.adb +++ b/src/grt/grt-main.adb @@ -180,11 +180,11 @@ package body Grt.Main is if Expect_Failure then if Status >= 0 then Expect_Failure := False; - Error ("error expected, but none occurred"); + Error_NF ("error expected, but none occurred"); end if; else if Status < 0 then - Error ("simulation failed"); + Error_NF ("simulation failed"); end if; end if; end Run_Finish; |