1! { dg-do compile } 2! 3! PR fortran/55343 4! 5! Contributed by Janus Weil 6! 7module my_mod 8 implicit none 9 type int_type 10 integer :: i 11 end type int_type 12end module my_mod 13program main 14 use iso_c_binding, only: C_void_ptr=>C_ptr, C_string_ptr=>C_ptr 15 use my_mod, only: i1_type=>int_type, i2_type=>int_type 16 implicit none 17 type(C_string_ptr) :: p_string 18 type(C_void_ptr) :: p_void 19 type (i1_type) :: i1 20 type (i2_type) :: i2 21 p_void = p_string 22 i1 = i2 23end program main 24