gcc/testsuite/gfortran.dg/lto/pr40725_0.f03

   1 module bind_c_dts_2
   2 use, intrinsic :: iso_c_binding
   3 implicit none
   4 type, bind(c) :: my_c_type_1
   5    integer(c_int) :: j
   6 end type my_c_type_1
   7 contains
   8   subroutine sub0(my_type, expected_j) bind(c)
   9     type(my_c_type_1) :: my_type
  10     integer(c_int), value :: expected_j
  11     if (my_type%j .ne. expected_j) then
  12        call abort ()
  13     end if
  14   end subroutine sub0
  15 end module bind_c_dts_2
  16