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