2014-04-23 Richard Biener <rguenther@suse.de>

[official-gcc.git] / gcc / testsuite / gfortran.dg / lto / pr60635_0.f90

! { 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