fork download 
  1. with ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
  2. Use ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
  3.  
  4. Procedure test Is
  5.  
  6. x : INTEGER :=10  ;
  7. my_char  : Character  ;         --  Variable declaration for all types
  8. my_float : Float      :=1.5  ;
  9.  
  10. Begin
  11. put(" MahindraSatyam");
  12. new_line;
  13. put(" MahindraSatyam");
  14. new_line;
  15. put(" The value of xis ");
  16. put(x,20);
  17. new_line;
  18. put(" The value of xis ");
  19. put(x,2);
  20. x := size(long double);
  21. put(" value of x:");
  22. put(x,2);
  23.  get(my_char);
  24.  
  25.  
  26. End test;
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
gnatgcc -c -pipe -O2 prog.adb
prog.adb:20:15: binary operator expected
gnatmake: "prog.adb" compilation error
stdout 
Standard output is empty
https://ideone.com/YqtAl
language:
Ada95 (gnat 8.3)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!