fork download
copy 
  1. procedure Fruit is
  2.    subtype Natural is 
  3.        Integer range 0 .. Integer'Last;
  4.    type Apples  is new Natural;
  5.    type Oranges is new Natural;
  6.    A : Apples; O : Oranges; I : Integer;
  7. begin -- nicht alles korrekt:
  8.    A := 4; --O := A + 1; I := A * A;
  9. end Fruit;
Success #stdin #stdout 0.01s 1652KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/ks3lT
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!