6 subroutine foo(x,y,z,a) bind(c) ! { dg-warning "but may not be C interoperable" }
10 integer(c_float) :: y ! { dg-warning "C kind type parameter is for type REAL" }
11 complex(c_float) :: z ! OK, c_float == c_float_complex
12 real(c_float_complex) :: a ! OK, c_float == c_float_complex
17 integer, parameter :: it = c_int
18 integer, parameter :: dt = c_double
19 complex(c_int), target :: z1 ! { dg-warning "C kind type parameter is for type INTEGER" }
20 complex(it), target :: z2 ! { dg-warning "C kind type parameter is for type INTEGER" }
21 complex(c_double), target :: z3 ! OK
22 complex(dt), target :: z4 ! OK