blob: 50252989f038b2a86829e369efd8114f9a8a23eb [file] [log] [blame]
-- { 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;