-- { dg-do compile }
-- { dg-options "-gnatW8" }
with Ada.Numerics;
procedure wide_pi is
begin
null;
end;