2 ! { dg-extra-ld-options "-r -nostdlib -finline-functions -flinker-output=nolto-rel" }
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