--  { 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;