gcc/testsuite/gfortran.dg/kind_tests_3.f03

   1 ! { dg-do compile }
   2 module my_kinds
   3   use, intrinsic :: iso_c_binding
   4   integer, parameter :: myFKind = c_float
   5 end module my_kinds
   6
   7 module my_module
   8   use my_kinds
   9   real(myFKind), bind(c) :: myF
  10 end module my_module
  11
  12 ! { dg-final { cleanup-modules "my_kinds my_module" } }