1! { dg-do compile } 2module my_kinds 3 use, intrinsic :: iso_c_binding 4 integer, parameter :: myFKind = c_float 5end module my_kinds 6 7module my_module 8 use my_kinds 9 real(myFKind), bind(c) :: myF 10end module my_module 11