From: Nirmala Bhupathi <nbhupath@rational.com>
Subject: Constraint error
Date: 1999/04/07
Date: 1999-04-07T00:00:00+00:00 [thread overview]
Message-ID: <370B9398.E10FC47F@rational.com> (raw)
Hi,
I am getting a constraint error with this program.
Is it behaving right?
with Ada.Text_IO;
with Interfaces;
procedure Show is
type Local_T is mod 32;
type Alpha_T is new Local_T;
type Bravo_T is new Interfaces.Unsigned_32;
type Charlie_T is digits 6;
package Alpha_IO is new Ada.Text_IO.Modular_IO(Alpha_T);
package Bravo_IO is new Ada.Text_IO.Modular_IO(Bravo_T);
package Charlie_IO is new Ada.Text_IO.Float_IO(Charlie_T);
A : Alpha_T;
B : Bravo_T;
C : Charlie_T;
begin
Ada.Text_IO.Put ("Enter: ");
Charlie_IO.Get(C);
A := Alpha_T(C);
Alpha_IO.Put(A);
Ada.Text_IO.New_Line;
B := Bravo_T(C);
Bravo_IO.Put(B);
Ada.Text_IO.New_Line;
end Show;
next reply other threads:[~1999-04-07 0:00 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-04-07 0:00 Nirmala Bhupathi [this message]
1999-04-07 0:00 ` Constraint error Matthew Heaney
1999-04-07 0:00 ` Nirmala Bhupathi
1999-04-08 0:00 ` Matthew Heaney
-- strict thread matches above, loose matches on Subject: below --
2004-09-29 23:24 Constraint Error Rick Santa-Cruz
2004-09-30 0:42 ` Jeffrey Carter
2004-09-30 0:42 ` Stephen Leake
2004-09-30 1:11 ` tmoran
2004-09-30 13:47 ` John A. S. Rowlands
1987-04-10 21:47 Constraint_Error keith
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox