* gcc-interface/trans.c (Call_to_gnu): Robustify test for function case

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / lto13.adb

-- { dg-do link }
-- { dg-options "-g -flto" { target lto } }

with Lto13_Pkg; use Lto13_Pkg;

procedure Lto13 is
begin
  Proc;
end;