blob: 83cb91e95d6de4c9aa87544b9cf3d4e2bbe1fa43 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { 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
|