fork download

with Ada.Text_IO;
use Ada.Text_IO;
 
procedure String_oprations is
First_Name : string(0..30);
Last_Name : string(0..30);
Job : constant STRING := "Computer Programmer";
location : string(0..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:5:21: warning: static value out of range of type "Standard.Positive"
prog.adb:5:21: warning: "Constraint_Error" will be raised at run time
prog.adb:6:20: warning: static value out of range of type "Standard.Positive"
prog.adb:6:20: warning: "Constraint_Error" will be raised at run time
prog.adb:8:19: warning: static value out of range of type "Standard.Positive"
prog.adb:8:19: warning: "Constraint_Error" will be raised at run time
prog.adb:16:05: actual for "Item" must be a variable
gnatmake: "prog.adb" compilation error

Standard output is empty