1-- { dg-do run } 2-- { dg-options "-O" } 3 4with Opt22_Pkg; use Opt22_Pkg; 5 6procedure Opt22 is 7 8 procedure Go (S : String) is 9 begin 10 begin 11 Fail; 12 exception 13 when Constraint_Error => Put ("the " & S); 14 end; 15 Put ("the " & S); 16 end; 17 18begin 19 Go ("message"); 20end; 21