|
! { 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" } }
|