blob: d62b8596dea93281df74793562cf993ce9be5cc8 [file] [log] [blame]
-- { dg-do compile }
with Inline1_Pkg; use Inline1_Pkg;
procedure Inline1 is
F : Float := Invalid_Real;
begin
if Valid_Real (F) then
F := F + 1.0;
end if;
end;