fork download

copy

with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
 
begin
Put_Line("Enter the first name :");
get(First_Name);
Put_Line("Enter the last name :");
get(Last_Name);
Put_line("Enter the job:");
get(Job);
put_line("enter the location :");
get(location);
 
put_line("The details are :");
put(First_Name);
new_line;
get(Last_Name);
new_line;
put(Job);
new_line;
put(location);
 
end String_oprations;
 

gnatgcc -c -pipe -O2 prog.adb
prog.adb:4:11: warning: file name does not match unit name, should be "string_oprations.adb"
prog.adb:16:05: actual for "Item" must be a variable
gnatmake: "prog.adb" compilation error

Standard output is empty