From 3b6608467ff8aaa2979a1a96a572893f2c88ba57 Mon Sep 17 00:00:00 2001
From: Stephane Carrez <Stephane.Carrez@gmail.com>
Date: Sat, 27 May 2023 16:59:15 +0200
Subject: [PATCH] Fix #5: Ada.Text_IO. missing in a template

- fix template to use Ada.Text_IO.Put_Line
---
 templates/body-io.adb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/templates/body-io.adb b/templates/body-io.adb
index 062e5f4..123d785 100644
--- a/templates/body-io.adb
+++ b/templates/body-io.adb
@@ -122,11 +122,11 @@ package body ${NAME}_IO is
       Saved_Tok_Line2 := new String (1 .. i - 1);
       Saved_Tok_Line2 (1 .. i - 1) := Temp_Line (1 .. i - 1);
       Line_Number_Of_Saved_Tok_Line2 := Line_Number_Of_Saved_Tok_Line1 + 1;
-      Put_Line ("Input line "
-                & Integer'Image ( Line_Number_Of_Saved_Tok_Line2 )
-                & "has more than "
-                & Integer'Image ( max_size )
-                & " characters, ... truncated." );
+      Ada.Text_IO.Put_Line ("Input line "
+                            & Integer'Image ( Line_Number_Of_Saved_Tok_Line2 )
+                            & "has more than "
+                            & Integer'Image ( max_size )
+                            & " characters, ... truncated." );
 %end
    exception
       when Ada.Text_IO.End_Error =>