fork download
  1. with Ada.Text_IO; use Ada.Text_IO;
  2. procedure Hello is
  3. begin
  4. Put_Line ("Testing ADA!");
  5. end Hello;
Success #stdin #stdout 0.01s 1716KB
stdin
Standard input is empty
stdout
Testing ADA!