| ! { dg-lto-do run } | |
| ! { dg-lto-options {{ -O3 -flto }} } | |
| ! This testcase will abort if C_FUNPTR is not interoperable with both int * | |
| ! and float * | |
| module lto_type_merge_test | |
| use, intrinsic :: iso_c_binding | |
| implicit none | |
| type(c_funptr), bind(c, name="myVar") :: myVar | |
| type(c_funptr), bind(c, name="myVar2") :: myVar2 | |
| contains | |
| subroutine types_test() bind(c) | |
| myVar = myVar2 | |
| end subroutine types_test | |
| end module lto_type_merge_test | |