1-- { dg-do run } 2-- { dg-options "-O2 -gnatn" } 3 4with Opt38_Pkg; use Opt38_Pkg; 5 6procedure Opt38 is 7begin 8 Test (-1); 9end; 10