gcc-4.9/gcc/testsuite/gfortran.dg/lto/pr60635_0.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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