fork download
copy 
  1. With Ada.Text_IO; Use Ada.Text_IO;  
  2. With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
  3.  
  4. procedure Program is
  5.   procedure Intercambia(A,B: in out Integer);
  6. begin
  7.   -- your code goes here
  8.  
  9.  
  10. 	procedure Intercambia(A,B: in out Integer) is 
  11. 	   C: integer; 
  12. 	begin 
  13. 	   C := A; 
  14. 	   A := B; 
  15. 	   B := C; 
  16. 	end Intercambia;
  17.  
  18. 	function Media(A,B: Float) return Float is 
  19. 	begin 
  20. 	   return (A + B) / 2.0; 
  21. 	end Media;
  22.  
  23. end Program;
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
gcc -c -pipe -O2 test.adb
test.adb:10:09: declarations must come before "begin"
test.adb:23:01: statement expected
gnatmake: "test.adb" compilation error
stdout
copy 
Standard output is empty
https://ideone.com/2oWxac
language:
Ada95 (gnat 8.3)
created:
6 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!