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