with Ada.Text_IO; use Ada.Text_IO; procedure Ada9 is lli : Long_Long_Integer := 0; li : Long_Integer := 0; i : Integer := 0; si : Short_Integer := 0; ssi : Short_Short_Integer := 0; n : Natural := 1; p : Positive := 1; llf : Long_Long_Float := 0.0; lf : Long_Float := 0.0; f : Float := 0.0; sf : Short_Float := 0.0; -- r : Integer range 1..25; a : Integer range 1..25; b : Integer range 1..25; type c is range 1..25; type d is range 1..25; c1 : c; d1 : d; type e1 is range 1..10; -- subtype e2 is e1 range 5..15; subtype e3 is e1'Base range 5..15; type e4 is new e1 range 2..8; begin a := 5; b := a+1; a := b; c1 := 5; d1 := 25; -- c1 := d1; e1 := e4; Put_Line("C1 = " & c1'Img); Put_Line("D1 = " & d1'Img); end Ada9;