fork download

with ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
Use ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
 
Procedure test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 
Begin
put(" MahindraSatyam");
new_line;
put(" MahindraSatyam");
new_line;
put(" The value of xis ");
put(x,20);
new_line;
put(" The value of xis ");
put(x,2);
x := INTEGER'SIZE;
put(" value of x:");
put(x,2);
 
new_line;
Put(LONG_LONG_FLOAT'SIZE);
Put(LONG_LONG_FLOAT'FIRST);
Put("to");
put(LONG_LONG_FLOAT'LAST);
 
new_line;
Put(LONG_LONG_FLOAT'SIZE);
 
new_line;
Put(LONG_FLOAT'SIZE);
 
new_line;
Put(FLOAT'SIZE);
 
 
End test; 

gnatgcc -c -pipe -O2 prog.adb
prog.adb:4:11: warning: file name does not match unit name, should be "test.adb"
prog.adb:26:01: no candidate interpretations match the actuals:
prog.adb:26:01: missing argument for parameter "Item" in call to "put" declared at a-tiflio.ads:80, instance at a-flteio.ads:20
prog.adb:26:01: missing argument for parameter "Item" in call to "put" declared at a-tiflio.ads:62, instance at a-flteio.ads:20
prog.adb:26:01: missing argument for parameter "Item" in call to "put" declared at a-tiinio.ads:77, instance at a-inteio.ads:18
prog.adb:26:01: missing argument for parameter "Item" in call to "put" declared at a-tiinio.ads:61, instance at a-inteio.ads:18
prog.adb:26:01: missing argument for parameter "Item" in call to "put" declared at a-textio.ads:243
prog.adb:26:01: missing argument for parameter "Item" in call to "put" declared at a-textio.ads:209
prog.adb:26:01: possible missing instantiation of Text_IO.Float_IO
prog.adb:26:20: expected type "Standard.Float"
prog.adb:26:20: found type "Standard.Long_Long_Float"
prog.adb:26:20:   ==> in call to "Put" at a-tiflio.ads:69, instance at a-flteio.ads:20
prog.adb:26:20:   ==> in call to "Put" at a-tiinio.ads:67, instance at a-inteio.ads:18
prog.adb:26:20:   ==> in call to "Put" at a-textio.ads:244
prog.adb:26:20:   ==> in call to "Put" at a-textio.ads:210
prog.adb:28:01: no candidate interpretations match the actuals:
prog.adb:28:01: missing argument for parameter "Item" in call to "put" declared at a-tiflio.ads:80, instance at a-flteio.ads:20
prog.adb:28:01: missing argument for parameter "Item" in call to "put" declared at a-tiflio.ads:62, instance at a-flteio.ads:20
prog.adb:28:01: missing argument for parameter "Item" in call to "put" declared at a-tiinio.ads:77, instance at a-inteio.ads:18
prog.adb:28:01: missing argument for parameter "Item" in call to "put" declared at a-tiinio.ads:61, instance at a-inteio.ads:18
prog.adb:28:01: missing argument for parameter "Item" in call to "put" declared at a-textio.ads:243
prog.adb:28:01: missing argument for parameter "Item" in call to "put" declared at a-textio.ads:209
prog.adb:28:01: possible missing instantiation of Text_IO.Float_IO
prog.adb:28:20: expected type "Standard.Float"
prog.adb:28:20: found type "Standard.Long_Long_Float"
prog.adb:28:20:   ==> in call to "Put" at a-tiflio.ads:69, instance at a-flteio.ads:20
prog.adb:28:20:   ==> in call to "Put" at a-tiinio.ads:67, instance at a-inteio.ads:18
prog.adb:28:20:   ==> in call to "Put" at a-textio.ads:244
prog.adb:28:20:   ==> in call to "Put" at a-textio.ads:210
gnatmake: "prog.adb" compilation error

Standard output is empty