1 files changed, 6 insertions, 0 deletions
diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb
index 56d1e6f81..9a48de48e 100644
--- a/src/grt/grt-errors.adb
+++ b/src/grt/grt-errors.adb
@@ -142,6 +142,12 @@ package body Grt.Errors is
       Newline_Err;
    end Report_E;
 
+   procedure Report_E (N : Integer) is
+   begin
+      Put_Err (N);
+      Newline_Err;
+   end Report_E;
+
    procedure Report_E (Str : Std_String_Ptr)
    is
       subtype Ada_Str is String (1 .. Natural (Str.Bounds.Dim_1.Length));