1! { dg-do compile } 2! { dg-options "-Wc-binding-type" } 3module c_kind_tests_2 4 use, intrinsic :: iso_c_binding 5 6 integer, parameter :: myF = c_float 7 real(myF), bind(c) :: myCFloat 8 integer(myF), bind(c) :: myCInt ! { dg-warning "is for type REAL" } 9 integer(c_double), bind(c) :: myCInt2 ! { dg-warning "is for type REAL" } 10 11 integer, parameter :: myI = c_int 12 real(myI) :: myReal ! { dg-warning "is for type INTEGER" } 13 real(myI), bind(c) :: myCFloat2 ! { dg-warning "is for type INTEGER" } 14 real(4), bind(c) :: myFloat ! { dg-warning "may not be a C interoperable" } 15end module c_kind_tests_2 16