1! { dg-do compile }
2! { dg-options "-Wc-binding-type" }
3module interop_params
4use, intrinsic :: iso_c_binding
5
6type my_f90_type
7   integer :: i
8   real :: x
9end type my_f90_type
10
11contains
12  subroutine test_0(my_f90_int) bind(c) ! { dg-warning "may not be C interoperable" }
13    use, intrinsic :: iso_c_binding
14    integer, value :: my_f90_int 
15  end subroutine test_0
16
17  subroutine test_1(my_f90_real) bind(c)
18    real(c_int), value :: my_f90_real    ! { dg-warning "is for type INTEGER" }
19  end subroutine test_1
20
21  subroutine test_2(my_type) bind(c) ! { dg-error "is not C interoperable" }
22    use, intrinsic :: iso_c_binding
23    type(my_f90_type) :: my_type 
24  end subroutine test_2
25end module interop_params
26