Fix #5: Ada.Text_IO. missing in a template

- fix template to use Ada.Text_IO.Put_Line
Ada-France · May 27, 2023 · 3b66084 · 3b66084
1 parent 3c2add0
commit 3b66084
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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 =>