fork download

copy

with Ada.Text_IO, Ada.Integer_Text_IO;
use  Ada.Text_IO, Ada.Integer_Text_IO;
    procedure Calculator is
 
First, Second : float;
Operator      : Character;
begin
 
Put ("Enter an expression in the form [NUMBER1(newline)OPERATOR(newline)NUMBER2] ");
Get (First);
Get (Operator);
Get (Second);
 
case Operator is
            when '+' =>
                Put (First + Second, Width => 1);
            when '-' =>
                Put (First - Second, Width => 1);
            when '*' =>
                Put (First * Second, Width => 1);
            when '/' =>
                Put (First / Second, Width => 1);
            when others => Put ("Invalid operator '");
 
end case;
New_Line;
end Calculator;
 
 

gcc-4.6 -c -pipe -O2 prog.adb
prog.adb:3:15: warning: file name does not match unit name, should be "calculator.adb"
prog.adb:10:01: no candidate interpretations match the actuals:
prog.adb:10:01: missing argument for parameter "Item" in call to "Get" declared at a-tiinio.ads:70, instance at a-inteio.ads:18
prog.adb:10:01: missing argument for parameter "Item" in call to "Get" declared at a-tiinio.ads:50, instance at a-inteio.ads:18
prog.adb:10:01: missing argument for parameter "Item" in call to "Get" declared at a-textio.ads:240
prog.adb:10:01: missing argument for parameter "Item" in call to "Get" declared at a-textio.ads:206
prog.adb:10:06: expected type "Standard.Integer"
prog.adb:10:06: found type "Standard.Float"
prog.adb:10:06:   ==> in call to "Get" at a-tiinio.ads:55, instance at a-inteio.ads:18
prog.adb:10:06:   ==> in call to "Get" at a-textio.ads:241
prog.adb:10:06:   ==> in call to "Get" at a-textio.ads:207
prog.adb:12:01: no candidate interpretations match the actuals:
prog.adb:12:01: missing argument for parameter "Item" in call to "Get" declared at a-tiinio.ads:70, instance at a-inteio.ads:18
prog.adb:12:01: missing argument for parameter "Item" in call to "Get" declared at a-tiinio.ads:50, instance at a-inteio.ads:18
prog.adb:12:01: missing argument for parameter "Item" in call to "Get" declared at a-textio.ads:240
prog.adb:12:01: missing argument for parameter "Item" in call to "Get" declared at a-textio.ads:206
prog.adb:12:06: expected type "Standard.Integer"
prog.adb:12:06: found type "Standard.Float"
prog.adb:12:06:   ==> in call to "Get" at a-tiinio.ads:55, instance at a-inteio.ads:18
prog.adb:12:06:   ==> in call to "Get" at a-textio.ads:241
prog.adb:12:06:   ==> in call to "Get" at a-textio.ads:207
prog.adb:16:17: no candidate interpretations match the actuals:
prog.adb:16:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:75, instance at a-inteio.ads:18
prog.adb:16:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:59, instance at a-inteio.ads:18
prog.adb:16:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:242
prog.adb:16:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:208
prog.adb:16:28: expected type "Standard.Integer"
prog.adb:16:28: found type "Standard.Float"
prog.adb:16:28:   ==> in call to "Put" at a-tiinio.ads:65, instance at a-inteio.ads:18
prog.adb:16:38: unmatched actual "Width" in call
prog.adb:18:17: no candidate interpretations match the actuals:
prog.adb:18:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:75, instance at a-inteio.ads:18
prog.adb:18:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:59, instance at a-inteio.ads:18
prog.adb:18:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:242
prog.adb:18:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:208
prog.adb:18:28: expected type "Standard.Integer"
prog.adb:18:28: found type "Standard.Float"
prog.adb:18:28:   ==> in call to "Put" at a-tiinio.ads:65, instance at a-inteio.ads:18
prog.adb:18:38: unmatched actual "Width" in call
prog.adb:20:17: no candidate interpretations match the actuals:
prog.adb:20:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:75, instance at a-inteio.ads:18
prog.adb:20:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:59, instance at a-inteio.ads:18
prog.adb:20:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:242
prog.adb:20:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:208
prog.adb:20:28: expected type "Standard.Integer"
prog.adb:20:28: found type "Standard.Float"
prog.adb:20:28:   ==> in call to "Put" at a-tiinio.ads:65, instance at a-inteio.ads:18
prog.adb:20:38: unmatched actual "Width" in call
prog.adb:22:17: no candidate interpretations match the actuals:
prog.adb:22:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:75, instance at a-inteio.ads:18
prog.adb:22:17: missing argument for parameter "Item" in call to "Put" declared at a-tiinio.ads:59, instance at a-inteio.ads:18
prog.adb:22:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:242
prog.adb:22:17: missing argument for parameter "Item" in call to "Put" declared at a-textio.ads:208
prog.adb:22:28: expected type "Standard.Integer"
prog.adb:22:28: found type "Standard.Float"
prog.adb:22:28:   ==> in call to "Put" at a-tiinio.ads:65, instance at a-inteio.ads:18
prog.adb:22:38: unmatched actual "Width" in call
gnatmake: "prog.adb" compilation error

Standard output is empty