! { dg-lto-do link } ! { dg-lto-options {{ -Wno-lto-type-mismatch }} } program test use iso_fortran_env interface integer(int16) function bigendc16(x) bind(C) import integer(int16), intent(in) :: x end function end interface integer(int16) :: x16 = 12345 x16 = bigendc16(x16) print *,x16 end program