fork download 
  1. With Ada.Text_IO, Interfaces; Use Ada.Text_IO, Interfaces;  
  2. With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
  3.  
  4. procedure Program is
  5. begin
  6. Put_Line (Unsigned_8'Image (Shift_Left  (1, 6)));
  7. end Program;
Success #stdin #stdout 0s 5816KB
comments (?)
stdin 
Standard input is empty
stdout 
 64
https://ideone.com/qcaQSx
language:
Ada95 (gnat 8.3)
created:
7 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!