blob: ede9f60e83fb72cbd1e903c120ff97ef669bc4ea (
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
25
26
27
28
29
30
|
! { dg-do compile }
! { dg-options "-Wc-binding-type" }
!
! PR fortran/38160
!
subroutine foo(x,y,z,a) bind(c) ! { dg-warning "but may not be C interoperable" }
use iso_c_binding
implicit none
integer(4) :: x
integer(c_float) :: y ! { dg-warning "C kind type parameter is for type REAL" }
complex(c_float) :: z ! OK, c_float == c_float_complex
real(c_float_complex) :: a ! OK, c_float == c_float_complex
end subroutine foo
use iso_c_binding
implicit none
integer, parameter :: it = c_int
integer, parameter :: dt = c_double
complex(c_int), target :: z1 ! { dg-warning "C kind type parameter is for type INTEGER" }
complex(it), target :: z2 ! { dg-warning "C kind type parameter is for type INTEGER" }
complex(c_double), target :: z3 ! OK
complex(dt), target :: z4 ! OK
type(c_ptr) :: ptr
ptr = c_loc(z1)
ptr = c_loc(z2)
ptr = c_loc(z3)
ptr = c_loc(z4)
end
|
