gcc/testsuite/gfortran.dg/kind_tests_3.f03


1
2
3
4
5
6
7
8
9
10
11
12

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