summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/bind_c_usage_18.f90
blob: 2bce215af1946d7772ab4a11b49caccb18bcfc1c (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
! { dg-do compile }
!
! 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