blob: ab4085e1ad6cc3341c71e3fbb262de5909d9050e [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-flto" { target lto } }
package body Lto18 is
procedure Proc (Driver : Rec) is
R : Path;
begin
for I in Driver.Step'Range loop
R := Get (Driver, 1, Driver.Step (I));
R := Get (Driver, 2, Driver.Step (I));
R := Get (Driver, 3, Driver.Step (I));
end loop;
end;
end Lto18;