! { dg-lto-do run } ! { dg-lto-options {{ -O3 -flto }} } ! This testcase will abort if C_PTR is not interoperable with both int * ! and float * module lto_type_merge_test use, intrinsic :: iso_c_binding implicit none type, bind(c) :: MYFTYPE_1 integer(c_signed_char) :: chr integer(c_signed_char) :: chrb end type MYFTYPE_1 type(myftype_1), bind(c, name="myVar") :: myVar contains subroutine types_test() bind(c) myVar%chr = myVar%chrb end subroutine types_test end module lto_type_merge_test