blob: 143f4fade19dcf0c8cbf1b802cfd4149a9b232c9 [file] [log] [blame]
-- { dg-do run }
-- { dg-options "-O2 -gnatn" }
with Opt38_Pkg; use Opt38_Pkg;
procedure Opt38 is
begin
Test (-1);
end;