1 2 3 4 5 6 7 8 9
-- { dg-do compile } -- { dg-options "-gnatW8" } with Ada.Numerics; procedure wide_pi is begin null; end;