fork download 
  1. with Ada.Text_Io;
  2. procedure Day is
  3.    type Day is ( Mon, Tue, Thu, Fri, Sat, Sun );
  4.    subtype Weekday is Day range Mon .. Fri;
  5.    X, Y : Day;
  6. begin
  7.    X := Fri;     Ada.Text_Io.Put (Day'Image(X));
  8.    Y := Day'Succ(X); Ada.Text_Io.Put (Day'Image(Y));
  9. end Day;
Success #stdin #stdout 0.02s 1716KB
comments (?)
stdin 
Standard input is empty
stdout 
FRISAT
https://ideone.com/6cGcF
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!