gcc/testsuite/gfortran.dg/lto/20091028-1_0.f90

   1 ! { dg-lto-do link }
   2 ! { dg-extra-ld-options "-r -nostdlib -finline-functions" }
   3
   4 SUBROUTINE int_gen_ti_header_char( hdrbuf, hdrbufsize, itypesize, &
   5                               DataHandle, Element, VarName, Data, code )
   6   CALL int_gen_ti_header_c ( hdrbuf, hdrbufsize, itypesize, 1, &
   7                              DataHandle, DummyData, DummyCount, code )
   8 END SUBROUTINE int_gen_ti_header_char
   9