! { dg-do compile } module my_kinds use, intrinsic :: iso_c_binding integer, parameter :: myFKind = c_float end module my_kinds module my_module use my_kinds real(myFKind), bind(c) :: myF end module my_module ! { dg-final { cleanup-modules "my_kinds my_module" } }