1-- { dg-do link }
2-- { dg-options "-largs -f -margs -flto" { target lto } }
3-- { dg-skip-if "missing linker support" { *-*-solaris2.* } }
4
5procedure Lto14 is
6begin
7  null;
8end;
9