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