1-- { dg-do compile }
2-- { dg-options "-flto" { target lto } }
3
4package body Lto18 is
5
6   procedure Proc (Driver : Rec) is
7      R : Path;
8   begin
9      for I in Driver.Step'Range loop
10         R := Get (Driver, 1, Driver.Step (I));
11         R := Get (Driver, 2, Driver.Step (I));
12         R := Get (Driver, 3, Driver.Step (I));
13      end loop;
14   end;
15
16end Lto18;
17