15 lines
319 B
Ada
15 lines
319 B
Ada
|
-- { dg-do compile }
|
||
|
|
|
||
|
|
procedure Fixedpnt4 is
|
||
|
|
type T is delta 2.0/5.0 range -10.0 .. 10.0 with Small => 2.0/5.0;
|
||
|
|
type T2 is delta 1.0/25.0 range -10.0 .. 10.0 with Small => 1.0/25.0;
|
||
|
|
|
||
|
|
X : T := 1.0;
|
||
|
|
Y : T2;
|
||
|
|
begin
|
||
|
|
Y := X / X;
|
||
|
|
Y := X / (X + X);
|
||
|
|
Y := X / (X + X + 1.0);
|
||
|
|
Y := (X + X) * (X + X);
|
||
|
|
end;
|