Codebase list ohcount / 85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/main test / expected_dir / ada1.ada
85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/main

Tree @85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/main (Download .tar.gz)

ada1.ada @85d5c3b4-c1f3-4d55-a24f-4c231b8d4c21/main — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
ada	code			 with Ada.Text_IO; use Ada.Text_IO;
ada	blank	
ada	code			 procedure Get_Name is
ada	blank	
ada	code				 Name   : String (1..80);
ada	code				 Length : Integer;
ada	blank	
ada	code			 begin
ada	comment				 -- no variables needed here :)
ada	blank	
ada	code				 Put ("Enter your first name> ");
ada	code				 Get_Line (Name, Length);
ada	code				 New_Line;
ada	code				 Put ("Hello ");
ada	code				 Put (Name (1..Length));
ada	code				 Put (", we hope that you enjoy learning Ada!");
ada	blank	
ada	code			 end Get_Name;