fork download
copy 
  1. with Ada.Text_IO; use Ada.Text_IO;
  2.  
  3. procedure Add is
  4.  
  5. X : integer := 0;
  6. Y : integer := 1;
  7.  
  8. begin
  9.  
  10.  
  11.    for I in 1..3 loop
  12.       for J in 1..I loop
  13.          X := X + Y + J;
  14.       end loop;
  15.       Y := X;
  16.    end loop;
  17.  
  18. return X;
  19.  
  20. end Add;
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
gnatgcc -c -pipe -O2 prog.adb
prog.adb:3:11: warning: file name does not match unit name, should be "add.adb"
prog.adb:18:01: procedure cannot return value (use function)
gnatmake: "prog.adb" compilation error
stdout
copy 
Standard output is empty
https://ideone.com/Wp6Bs
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!