! { dg-lto-do link }
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

