blob: 35b407c0afdc47b41d80fe82b57c6563b05e7af7 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O -gnatws" }
procedure Opt43 is
function Func return Integer is
begin
if False then
return 0;
end if;
end;
begin
if Func = Func then
raise Program_Error;
end if;
exception
when Program_Error => null;
end;