1 files changed, 5 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 6d2ea4b55..ca0722a78 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -942,7 +942,11 @@ package body Ghdlprint is
             --  Disp line.
             if Eptr > Ptr then
                --  Avoid constraint error on conversion of nul array.
-               Put (String (Buf (Ptr .. Eptr - 1)));
+               declare
+                  subtype Conv_Subtype is String (1 .. Natural (Eptr - Ptr));
+               begin
+                  Put (Conv_Subtype (Buf (Ptr .. Eptr - 1)));
+               end;
             end if;
             New_Line;
          end loop;