fork download

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) ;
int:natural;
 
begin
Put_Line("Enter the first name :");
get(First_Name,int);
Put_Line("Enter the last name :");
get(Last_Name,int);
put_line("enter the location :");
get(location,int);
 
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:13:01: no candidate interpretations match the actuals:
prog.adb:13:01: too many arguments in call to "get"
prog.adb:13:05: expected private type "Ada.Text_Io.File_Type"
prog.adb:13:05: found type "Standard.String"
prog.adb:13:05:   ==> in call to "Get" at a-textio.ads:241
prog.adb:13:05:   ==> in call to "Get" at a-textio.ads:207
prog.adb:15:01: no candidate interpretations match the actuals:
prog.adb:15:01: too many arguments in call to "get"
prog.adb:15:05: expected private type "Ada.Text_Io.File_Type"
prog.adb:15:05: found type "Standard.String"
prog.adb:15:05:   ==> in call to "Get" at a-textio.ads:241
prog.adb:15:05:   ==> in call to "Get" at a-textio.ads:207
prog.adb:17:01: no candidate interpretations match the actuals:
prog.adb:17:01: too many arguments in call to "get"
prog.adb:17:05: expected private type "Ada.Text_Io.File_Type"
prog.adb:17:05: found type "Standard.String"
prog.adb:17:05:   ==> in call to "Get" at a-textio.ads:241
prog.adb:17:05:   ==> in call to "Get" at a-textio.ads:207
gnatmake: "prog.adb" compilation error

Standard output is empty